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ABSTRACT 


A modification of Hansen’s solution of the lunar prob- 
lem by Musen has been programmed and verified by du- 
plicating some of Hansen’s series. Methods were developed 
for manipulating trigonometric series with numerical 
coefficients and literal arguments. The program described 
will be used to calculate perturbations and ephemerides of 
both natural and artificial satellites. 
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THE DEVELOPMENT OF HANSEN’S COORDINATES IN THE 
LUNAR PROBLEM BY THE METHOD OF ITERATION 

by 

Milton L. Charnow 
Goddard Space Flight Center 


INTRODUCTION 

This modification of Hansen’s solution of the lunar problem (References 1 and 2) was suggested 
by Musen (Reference 3) and programmed by the author. This theory can be used for planetary 
satellites with high inclinations. The modification is adjusted to the use of the process of iteration, 
thus contributing to the uniformity of the programming and facilitating treatment of the problem by 
modern digital computing machines. Hansen T s original lunar theory requires the use of the deriv- 
atives of the disturbing function with respect to the eccentricity and the parameters determining 
the orbit plane’s position. This means that a literal development of the disturbing function must be 
obtained before the numerical values of the elements can be substituted. The present modification 
permits a numerical development of the disturbing function. 

In order to reproduce some of Hansen’s series, it was necessary to devise methods for the 
machine to perform both numerical and algebraic manipulations. The trigonometric series em- 
ployed in the lunar problem are slowly convergent. The original program allowed 50 terms to a 
series. Of the two completed versions, the program written for the IBM-7094 Mod II allows for 
200 terms to a series and the Univac 1107 version allows 3,333 terms to a series. 

The IBM 7094 program utilizes the double core storage of 65,000 words. The Univac 1107 
program uses 500,000 words of drum storage and allows 10,000 words of storage for each series. 
Almost the entire 65,000 word core storage of the Univac 1107 is used as accumulators to bring 
in the series to be operated on and to accumulate the results. Core storage of 20,000 words is 
used as an accumulator to store the resultant series. 

A complete package of routines to multiply, add, subtract, scalar multiply, differentiate, inte- 
grate, and evaluate trigonometric series and to extract the numerical coefficient of any argument 
was written. By the uses of these tools, series manipulations are programmed almost as easily as 
numerical calculations. 

PROGRAM DEVELOPMENT 

The Hansen lunar theory utilizes trigonometric terms of five arguments multiplied by a nu- 
merical coefficient. The arguments are g, g', oo> a>' andy, of which g and g' represent the mean 
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anomalies of the satellite and the sun (the perturbed and perturbing bodies) while and a;' represent 
the mean arguments of perigee of the perturbed and perturbing bodies and y represents a fictitious 
mean anomaly of the auxiliary satellite. For example, the largest term in the n 0 Sz series is the 
evection term; its value is 4466 M . 9 sin (lg- 2g' + 2oo- 2^'). 

A number scheme was developed to represent a cosine or sine. This scheme is normalized to 
the number 00505050+08. The evection term in this notation is 44669000+04 - 01485248+08 
+ 50505050+08. Of these three words, the first is an ordinary number. The second and third are 
logic words which permit a representation of a trigonometric term with as many as eight argu- 
ments in literal form whose multipliers can assume any value from +49 to -49. The first argument 
is positive and can assume values from 0 to 99. 

The parts composing the multiplication routine are multiplier, collapser, and arranger. After 
each term of a series is multiplied, it is compared with every term previously generated so that 
the resultant series has no duplicates. The resultant series is then arranged in descending order 
of the numerical coefficients. 

In addition to the routines described, Appendix B shows an example of a sample series print- 
out programmed by T. P. Gorman. 


COLLECTION OF FORMULAS AND DISCUSSION 

A Bessel-function routine is employed to generate the numerical coefficients of the input series 
(p/a') cos <f> through a '/p' . The input series have literal arguments. The major iterative loop 
begins with the calculation of the series. The disturbing function is generated from the s and the 
p series. When the series representing the di///dt , dX 2 /dt and d\ 3 /dt functions have been formed, 
the values of n 0 y , n 0 a andn 0 t) are determined by imposing the condition that the series representing 
those functions contain no constant terms. 

The values, n 0 y , n 0 a and n 0 ?? relate to the motion of the lunar perigee, lunar node, and solar 
perigee. The series 

[~Fr] - M • [^i ] ( i = 1, 2, 3, 4) 

are obtained by the formal integration process. The n 0 Sz series is computed from the dn 0 Sz/dt 
series after Cj and c 2 are calculated so that n 0 Sz contains no constant or sin g terms. 

The n 0 Sz series has been computed; now the 



are constructed for final output or for use in the next iteration. They are complete when the values 
of n 0 y , n 0 a , and n Q tj have converged. This modified version of the lunar theory converged in 
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ten iterations. One iteration is completed in approximately one hour on the Uni vac 1107 
program. 

The following input values were used: 
n 0 = 0.228027130 radians/day 

I 0 = 0.089826279 radians 

e 0 = 0.054908070 

n' = 0.01720197 radians/day 

e' = 0.01679226 

m / a ^ 

r- = 0.00569091504 

a 6 

T ^~ = 0.000014054 

a' 4 

= 0.000000036 

a * 


Input information: 


Basic arguments: 



g = g 0 + n Q t , g' - g 0 ' + n Q ' t . 

03 - "o + n o (y + a_ 7 J) t - 

= "o' + n o ( a + v + y‘) t . 

6 = ("o' +n oV' 4 ~ CT ') ” • 


The following standard formulas of the elliptic motion are used; however, if preferred, Cayley's 
Tables can be used instead. 


P 

— COS 4 > 


3 

2 e o 


-z: 


J P ' (P e o) 
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Beginning of Iteration 


( 1 + v) • — * — cos (c£ + f ' + gj + a/ ) 


s 2 - ( 1 + V) • * — sin (0 + f ' + CJ + cj' ) 


pa — 
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i a an 

1 + v p a ' <9S 


a ' 
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0 y 1 ~ e 0 2 


(9 n G 

H; = 2Z^( n ° SZ ) n A (i=0. 1. 2, 3,4) 


St = +n 0 aX 2 


1 / , an' 

+ Hj - 2 " (+ ^4 Sin 0 + \ 3 cos 0 ) • sin 1 ' dt 
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dA. 


dt - - n Q a\ 1 + H 2 + (+^ 4 cos 6 -\ 3 sin (9 ) * sin i # 


dA. 


3 i / % dn' 

dt ~ + n 0 ^4 + H 3 + ~2 ( + K 1 cos 0 + ^2 sin 0 / * sin i * “dF 


d\ 


u/v ’4 1 / dT2 ' 

“dF = “ n 0 ^3 + H 4 + ~2 ( + ^1 Sin 6 “^2 COS 19 ) * Sln A # “dF 


Where 


[t?]’ W. W. [\] (i = 1, 2, 3, 4) 

is the series obtained by the formal integration process, 

<P = [¥] , 
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- 2 e o [r] + 2 (a 2 “A 3 + •• •) , 

\ 1 


( n o Sz ) n d" p 
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n! 
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dn Q Sz 
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End of Iteration 
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Notations 


a Q the mean semi-major axis of the satellite’s orbit 
a, e, n the osculating elements of the satellite 

e 0 the mean eccentricity of the satellite’s orbit 
f the osculating true anomaly 
T ' the true anomaly of the disturbing body 
g = g 0 + n 0 t the undisturbed mean anomaly of the satellite 
g 0 satellite’s mean anomaly at the epoch 


h = — — — 



I 0 the mean value of the mutual inclination of two orbit planes 
-2K the periodic part i n^-f 

l = g 0 +n 0 t+n 0 8z the perturbed mean anomaly of the satellite 
m ' the mass of the disturbing body 

“2N the periodic part in $ + 

n Q the mean anomalistic mean motion of the satellite (a 0 is defined as n~ 2/3 ; 
the gravitational constant is put equal to 1) 

n 0 hz the perturbations in the satellite’s mean anomaly 

-2n 0 at the secular part in + 4>' 

+2n 0 T)t the secular part in $ - 

r the position vector of the satellite, r = |r| 

r' the position vector of the disturbing body, |r # | = r' = r 

r, f the radius vector and the true anomaly depending upon l , where r cos f 
“ a Q (cos E“e Q ^ , r sin f = a Q y 1 - e 2 sin E , and E - e Q sin E = l 

S ° cos ( r, r ' ) 
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V 


y 

A 




v 


77 0 +n o yt 


77 o +n 0 y 


p, 4> 


p, ? 


cr ' 


Y 

0 


</>' 


*D- * 0 ' 

a 

dO. 

dr 

an 

dZ 


the true orbital longitude of the satellite, reckoned from the departure point in 
the satellite's orbit plane 

the true orbital longitude of the disturbing body, reckoned from the departure 
point in the body's orbit plane 

the auxiliary mean anomaly; y is replaced by l at the later stage of computation 

the distance between the satellite and the disturbing body 

the parameters defining the periodic perturbations of the orbit plane, where 
y t = sin 1/2 cos N,A- 2 - sin l/2 sinN ,^ 3 = cos 1/2 sin K , and \ 4 = cos l/2 cos K 

the perturbations in the radius vector r , where r = ( 1 + v) r 

the mean orbital longitude of the pericenter of the satellite 

the mean orbital longitude of the pericenter of the disturbing body 

the radius vector and the true anomaly depending upon the auxiliary mean 
anomaly y , where p cos ? = a 0 ( cos e - e Q ) , p sin? = a 0 ^ l - e Q 2 sin e , and 
e ~ e Q sin e - y 

the radius vector and the true anomaly depending upon g, where p cos? 

= a Q ( cos e - e Q ), p sin? = a Q ^ l ~ e Q 2 sine, and e “e Q sine = g 

the true orbital longitude of the node of the disturbing body's orbit plane; the 
fixed ecliptic and equinox serve as a reference 

the true orbital longitude of the osculating pericenter of the satellite 

the true orbital longitude of the common node, as reckoned from the departure 
point in the orbit plane of the satellite 

the true orbital longitude of the common node, as reckoned from the departure 
point in the orbit plane of the disturbing body 

the constant parts in ? and 

the disturbing function 

the radial component of the disturbing force 

the component of the disturbing force normal to the orbit plane 


COMPARISON OF RESULTS 

Comparison of the results from the method of iteration and from Hansen is shown in Tables 1, 
2 and 3 which follow. 
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Table 1 


Comparison of n 0 Sz from the Method of Iteration and from Hansen. 


sin (ig, 

i' g\ 

j". 

j' «') 

Method of 
Iteration (MI) 

Hansen 
Method (H) 

Difference 
H - MI 

1, 

-2, 

2, 

-2 

1?2408 

1?2408 

0°0000 

2, 

-2, 

2, 

-2 

0.5958 

0.5958 

0.0000 

-1, 

o, 

o, 

0 

0.1814 

0.1826 

0.0012 

1. 

-3, 

2, 

-2 

0.0549 

0.0550 

0.0001 

2, 

-3, 

2, 

-2 

0.0431 

0.0431 

0.0000 

1, 

-1, 

1, 

-1 

-0.0337 

-0.0337 

0.0000 

1. 

-1, 

o, 

0 

0.0309 

0.0310 

0.0001 

1, 

o, 

2, 

0 

-0.0234 

-0.0236 

0.0002 

o, 

2, 

o, 

2 

-0.0025 

-0.0225 

0.0000 

-1, 

-1. 

0, 

0 

0.0205 

0.0204 

-0.0001 

1 '3, 

-2, 

2, 

-2 

0.0167 

0.0167 

0.0000 

o, 

-2, 

2, 

-2 

-0.0115 

-0.0116 

0.0001 

3, 

-4, 

4, 

-4 

0.0099 

0.0099 

0.0000 

2, 

-4, 

4, 

-4 

0.0083 

0.0083 

0.0000 

1, 

-1, 

2, 

-2 

-0.0079 

-0.0077 

0.0002 

2, 

-1, 

2, 

-2 

-0.0064 

-0.0064 

0.0000 

1. 

o, 

1, 

-1 

0.0057 

0.0049 

-0.0008 

o, 

-1, 

1. 

-1 

0.0016 

0.0032 

0.0016 

-1, 

2, 

o, 

2 

0.0047 

0.0031 

-0.0016 

4, 

-4, 

4, 

-4 

0.0030 

0.0030 

0.0000 

2, 

-4, 

4, 

-4 

0.0021 

0.0021 

0.0000 

0, 

-2, 

o, 

0 

0.0019 

0.0020 

0.0001 

1, 

-4, 

2, 

-2 

0.0020 

0.0019 

-0.0001 

3, 

-3, 

2, 

-2 

0.0014 

0.0014 

0.0000 

1, 

2, 

o, 

2 

-0.0013 

-0.0013 

0.0000 

2, 

o, 

o, 

0 

-0.0013 

-0.0012 

0.0001 

3, 

-5, 

4, 

-4 

-0.0011 

-0.0011 

0.0000 

o, 

-1. 

2, 

-2 

-0.0009 

-0.0010 

-0.0001 

o, 

3, 

o, 

2 

-0.0009 

-0.0010 

-0.0001 

2, 

-3, 

3, 

-3 

-0.0009 

-0.0009 

0.0000 

2, 

-5, 

4, 

-4 

0.0007 

0.0007 

0.0000 

1, 

o, 

2, 

-2 

-0.0006 

-0.0007 

-0.0001 

o, 

"3, 

2, 

-2 

-0.0007 

-0.0006 

0.0001 

1, 

-2, 

0, 

0 

0.0005 

0.0006 

0.0001 

4, 

-2, 

2, 

-2 

0.0006 

0.0006 

0.0000 
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Table 2 


Comparison of v Series from the Method of Iteration and from Hansen. 






Method of 

Hansen 

Difference 

cos (ig, : 

i' g'. 

j oj . 

j' «') 

Iteration (MI) 

Method (H) 

H - MI 

o, 

o, 

0, 

0 

-0.006446 

-0.006479 

-0.000033 

1. 

-2, 

2, 

-2 

-0.010028 

-0.010041 

| -0.000013 

2, 

-2, 

2, 

-2 

-0.007373 

-0.007331 

0.000042 

2, 

-3, 

2, 

-2 

-0.000519 

-0.000517 

0.000002 

1, 

o, 

0, 

o, 

0.000451 

0.000453 

0.000002 

1. 

-3, 

2, 

-2 

-0.000427 

-0.000429 

-0.000002 

2, 

-2, 

2, 

-2 

-0.000337 

-0.000334 

0.000003 

o, 

-2, 

2, 

-2 

-0.000246 

-0.000250 

-0.000004 

1. 

-1. 

0, 

0 

-0.000245 

-0.000246 

-0.000001 

1, 

o, 

2, 

0 

0.000204 

0.000205 

0.000001 

1. 

1, 

0, 

0 

0.000189 

0.000187 

-0.000002 

o, 

-1. 

0, 

0 

0.000120 

0.000120 

0.000000 

3, 

-4, 

4, 

-4 

-0.000094 

-0.000087 

0.000007 

2, 

-1. 

2, 

-2 

0.000078 

0.000078 

0.000000 

1. 

-1. 

2, 

-2 

0.000069 

0.000068 

-0.000001 

2, 

-4, 

4, 

- 4 

-0.000057 

-0.000056 

-0.000001 

2, 

-o, 

0, 

0 

0.000029 

0.000031 

0.000002 

o, 

2, 

0, 

2 

0.000029 

0.000029 

0.000000 

4, 

-4, 

4, 

-4 

-0.000018 

-0.000028 

-0.000010 

3, 

-3, 

2, 

-2 

-0.000026 

-0.000026 

0.000000 

2, 

-4, 

2, 

-2 

-0.000025 

-0.000025 

0.000000 

-1. 

2, 

0, 

2 

0.000020 

0.000022 

0.000002 

4, 

-2, 

2, 

-2 

-0.000017 

-0.000017 

0.000000 

1. 

-4, 

2, 

-2 

-0.000015 

-0.000015 1 

0.000000 

2, 

o, 

2, 

0 

-0.000014 

-0.000014 

0.000000 

1, 

2, 

0, 

2 

0.000012 

0.000013 

0.000001 

o, 

-3, 

2, 

-2 

-0.000012 

-0.000012 

0.000000 

3, 

-5, 

4, 

-4 

-0.000011 

-0.000010 

0.000001 

1, 

o, 

2, 

-2 

0.000005 

0.000006 

0.000001 

-2, 

-1, 

0, 

0 

1 

0.000005 

0.000006 

0.000001 


Table 3 


Comparison of the Constants n Q y, n Q a, and n Q 77 from the Method of Iteration and from Hansen. 



Method of 
Iteration (MI) 

0°11158 deg/day 

0.05287 

0.00001 


Hansen 
Method (H) 

0?11157 deg/day 

0.05288 

0.00001 


Difference 
H - MI 

-0?00001 deg/day 
0.00001 
0.00000 


APPLICATION TO LUNAR SATELLITE 

This program was used to calculate the perturbations of an artificial lunar satellite. The 
numerical values of the inputs, the outputs representing n 0 Sz, (Table 4) v (Table 5) and the lambda 
parameters (Tables 6, 7, 8, 9), and the values of n 0 y , n 0 a, and n 0 77 follow. 

Inputs 


n = 3.6782734 

radians 

e ' 

= 0.0549 

I = 0.13962634 

radians 

m' a 2 




a' 3 

= 0.00386159 

e = 0.20000000 






m' a 3 
a' 4 

= 0.00013972 

n' = 0.22997151 






m' a 4 
a '5 

= 0.00000506 


Values of Constants 

n 0 y = 1.0266 degrees/day 

n 0 a = 0.6460 degrees/day 

n 0 v = 0.0030 degrees/day 
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Table 4 


Numerical Values of the Outputs Representing n n Sz. 


sin (ig 

+ i' g' 

+ }00 + 

!'*>') 

Degrees 

0, 

1 , 

o, 

0 

-0.70 

0, 

2, 

3 , 

-3 

-0.22 

0, 

1 . 

-1, 

1 

0.12 

0, 

2, 

-2, 

2 

0.11 

0, 

2, 

o, 

2 

-0.06 

0, 

1 , 

1 , 

1 

-0.02 

0, 

2, 

0, 

0 

0.02 

1 . 

-2, 

2, 

-2 

3.42 

1, 

- 3 , 

2, 

-2 

0.50 

1 , 

o, 

1 , 

-1 

0.42 

1 , 

-1, 

1 , 

-1 

-0.40 

1 , 

o, 

- 1 , 

1 

0.34 

1 . 

o, 

2, 

0 

-0.24 

1 , 

-1, 

o, 

0 

0.22 

1 , 

1 , 

o, 

0 

-0.16 

1, 

-1, 

2, 

-2 

-0.13 

1, 

-2, 

1 , 

-3 

0.07 

1 . 

-2, 

3 , 

-3 

-0.07 

1 . 

o, 

1 , 

1 

0.06 

1 , 

-4, 

2, 

-2 

0.06 

1 , 

-2, 

3 , 

-1 

0.05 

1 . 

- 3 , 

3 , 

-3 

-0.05 

1 . 

2, 

-2, 

2 

0.03 

1 , 

-2, 

1 , 

-1 

0.02 

1 . 

-2, 

o. 

-2 

-0.02 

1 . 

-4, 

3 , 

-3 

0.01 


sin (ig 

+ i' g' 

+ jco + 

i' «') 

Degrees 

2, 

-2, 

2, 

-2 

0.51 

2, 

-3, 

2, 

-2 

0.11 

2, 

-4, 

4, 

-4 

0.06 

2, 


3, 

-3 

-0.03 

2, 

-i, 

2, 

-2 

-0.03 

2, 

-2, 

1. 

-3 

0.02 

2, 

o, 

1, 

-1 

0.02 

2, 

-5, 

4, 

-4 

0.02 

2, 

o, 

-1, 

1 

0.02 

2, 

-4, 

2, 

-2 

0.02 

2, 

-1, 

1, 

-1 

-0.02 

2, 

-2, 

3 , 

-1 

-0.02 

2, 

-2, 

3, 

-3 

0.01 

2, 

-1. 

0, 

0 

0.01 

2, 

o, 

2, 

0 

-0.01 

2, 

o, 

0, 

0 

-0.01 

2, 

-2, 

4, 

-2 

-0.01 

2, 

1, 

0, 

0 

-0.01 

2, 

-4, 

3. 

-3 

-0.01 

3, 

-2, 

2, 

-2 

0.05 

3, 

-4, 

4, 

-4 

0.03 

3, 


2, 

-2 

0.01 

3, 

-5, 

4, 

-4 

0.01 

4, 

"2, 

2, 

-2 

0.01 

4, 

-4, 

4, 

-4 

0.01 
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Table 5 


Numerical Values of the Outputs Representing the v Series. 


cos (ig + i ' g ' + )oo + j ' a>‘) 


0 , 0 , 
0 , 2 , 
0, 1 , 
0 , 1 , 

0, 3, 
0 , 2 , 
0 , 1 , 
0, 0, 
0 , 2 , 

1, -2, 

1, -3, 

1, o, 
1, - 1 , 
1, o, 
1, o, 
1, -1, 
1, 1, 
1, o, 
1, -1, 
1, 0, 
1, -2, 
1 , - 4 , 

1 , "2, 
1 , " 2 , 
1, -3, 


0, 0 

“ 2 , 2 

- 1 , 1 

0, 0 

- 2 , 2 

-3, 3 

“ 2 , 2 

1, 1 

0 , 2 

2 , -2 

2 , -2 

1 , “1 

1 , -1 

- 1 , +1 

2 , 0 

0 , 0 

0 , 0 

0, 0 

2 , -2 

1 , 1 

3, -3 

2 , -2 

1 , -3 

3, -1 

3, -3 


-0.0036 

-0.0026 

0.0004 

0.0004 

-0.0003 

0.0003 

-0.0003 

0.0002 

0.0001 

-0.0281 

-0.0039 

-0.0037 

0.0035 

-0.0029 

0.0021 

-0.0017 

0.0015 

- 0.0010 

0.0009 

-0.0005 

0.0005 

-0.0004 

-0.0004 

0.0004 

0.0004 



-0.0003 

- 0.0002 

- 0.0002 

0.0001 

0.0001 

-0.0071 

-0.0013 

-0.0004 

-0.0003 

-0.0003 

0.0003 

-0.0003 

-0.0003 

0.0002 

- 0.0002 

0.0002 

0.0002 

0.0001 

- 0.0001 

- 0.0011 

-0.0004 

-0.0003 

- 0.0002 

- 0.0002 



Table 6 


Table 8 


Numerical Values of the Outputs 
Representing the Lambda 1 Series. 

cos (ig + i' g' + jco + y co') 

0 , 0 , 0 , 0 

0 , 2 , 0 , 2 

0 , 0 5 2 , 0 

0, 3, 0, 2 

0 , 2 , - 2 , 2 

0 , 1 , 0 , 2 

1 , - 2 , 2 , -2 

1 , 0 , 2 , 0 


Table 7 


Numerical Values of the Outputs 
Representing the Lambda 2 Series. 


(ig + 

i' g' 

+ j"+ j 

i' 


0, 

2, 

o, 

2 

-0.0017 

0, 

o, 

2, 

0 

-0.0015 

o, 

1, 

o, 

0 

0.0006 

0, 

3, 

o, 

2 

-0.0002 

0, 

1 . 

- 1 . 

0 

-0.0002 

o, 

2, 

-2, 

2 

0.0002 

0, 

1 , 

o. 

2 

0.0001 

0, 

o, 

1 , 

-1 

-0.0001 

o, 

1 . 

1 , 

1 

0.0001 

1 . 

-2, 

2, 

-2 

-0.0001 

1, 

o, 

2, 

0 

0.0001 

1 , 

o, 

o, 

0 

-0.0001 

2, 

-2, 

2, 

-2 

0.0001 

2, 

o, 

2, 

0 

-0.0001 


0.0698 

0.0017 

0.0015 

0.0002 

0.0002 

- 0.0001 

0.0001 

- 0.0001 


Numerical Values of the Outputs 
Representing the Lambda 3 Series. 


sin (ig + 

i' g' 

+ + j 

' &/) 


0, 

2, 

0, 

2 

0.0001 

0, 

0, 

2, 

0 

0.0001 


Table 9 


Numerical Values of the Outputs 
Representing the Lambda 4 Series. 


cos (ig + 

i'g' 

+ j" + j 



0, 

o, 

0, 

0 

0.9976 

0, 

2, 

0, 

2 

-0.0001 

0, 

0, 

0, 

2 

-0.0001 
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CONCLUSION 


A comparison of the results, which indicates the accuracy required for the production of gen- 
eral theories, and ephemerides of satellites of the outer planets have been achieved. Lunar theory 
has been employed solely for verification. Future plans include the application of this program to 
the orbits of both natural and lunar satellites. 
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H 

00003 

00004 

COO 14 



00271 

H 

00004 

00004 

00015 



00272 

E 

00002 





00273 

B 

00009 



B 

00009 

00274 

A 

00004 

C0004 

CC011 



00275 

A 

00006 

00006 

coon 



00276 

A 

00018 

CC0C6 

CCC08 



00277 

G 

00018 

C0520 

COO 1 8 



00278 

H 

C0001 

00004 

CO 0 1 8 



00279 

C 

C00C5 

00004 

C0C09 



00280 


K 


C018C 


LINE 


CC280 
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E C00C2 

• B CO A 39 
I 00514 
A 00514 
R 00512 
C C0011 
A 00512 
A 00512 
A 00512 

• B CO 509 

V 00003 
E 00CC2 

V C0422 

V 00423 

V 00424 

V C0425 

V 00426 

V 00511 

V COOll 

V COO 12 

V 00014 

V 00015 

V 00019 

• B COO 16 
H 00520 
E C0010 
K 0C020 

V 00CC3 

V C0004 

V 00005 

V 00006 

V C00C7 

V C0008 

V 000C9 

V 00010 

V COOll 

V COO 1 2 

V 00013 

V 00014 

V 00015 


K = CC180 


LINE C0281 


PAGE 008 




00281 



B 00439 00282 

+700C0GCC+03 


00283 

00514 CC0C8 


00284 

00012 


00285 

CC018 C 0509 


00286 

0C018 CC018 


00287 

00512 CC018 


00288 

00512 COOll 

NUMBER OF CELLS 

00289 



B 00509 00290 

00510 CO 5 12 0C514 

WRITE SERIES ON DRUM 

00291 



00292 

+ 42 300CC 0 + 03 


00293 

+10CCCCC0+01 


00294 

+C00CC0C0+CC 


00295 

f005C5C5C+08 


00296 

+50505050+08 


00297 

+18CCCCC0+C3 

VALUE OF THIS K 

00298 

+10000000+01 


00299 

+C00C0CC0+0C 


00300 

+ C0 505050 + 08 


00301 

+50505050+08 


00302 

+ 30CCCCGC + 0 l 


00303 



6 00016 00304 

00013 C0050 


00305 



00306 



00307 

-49CC C0C0 + 02 


00308 

-30CCCCC0+01 


00309 

+3OCCC0CO+O 1 


00310 

+C0CCCCG0+0C 

161=0 

0031 1 

+10CCCCCC+01 

( 7 ) = 1 

00312 

-lOCCOCOO+Ol 

( 8 ) = — 1 

00313 

+200CCCC0+C1 

( 9 J =2 

00314 

-20CCC0CO + 0 1 

( 10 ) = — 2 

00315 

+50CCCCCC+CC 

< ll)=l/2 

00316 

+67108864+08 

( 1 2 ) = T WO TO THE 26TH 

00317 

+ 1CCCGCC0 + 0 7 

( 1 3 ) = 1 . OCC , COO 

00318 

+ 1GCOCCOO + 05 

( 14)=10,CC0 

00319 

+ 10C0CCCC + 03 

15=100 

00320 

K = 0C2C0 

LINE C0320 
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to 

-o 



CO 

00 


K = 0C2C0 


LINE 00321 


PA Gti 009 


V CC016 + 10CCCCCG-07 

V COO 1 7 +50CC00CC+02 

V CO 0 1 8 +49CCCCCC+02 

V 00030 +SCCCCCC0+0 1 

V 00030 + 1CCCCC00+03 

V CO 0 30 + 200CC CO 0 +0 3 

V 00030 + 4CC C CC C 0 + G 3 

V 00030 + 80CCCCC0 + 0 3 

V C0C30 + 20CCCC CO + 04 

V 00460 +00505050+08 

V 00461 +50505050+08 

V 00495 +99CGCC00+02 

* B 00031 

R 00204 0C0C6 
R 00177 0CCC8 
M 00033 C CO 30 0C0C9 
R 00422 CC0C7 
R C0424 00006 
H 00500 CC033 00006 
G 00049 00500 0C006 
G 00050 C05C0 CC030 
M 00047 00049 CC005 
A 00032 0C030 C0005 
S 00360 00033 00009 
D 00360 CO 360 CCC05 
S 00360 0036C CCC05 
S 00360 0 C 360 C0005 
I 00056 +C0C0C000+00 

* B 00034 

A COO 56 00056 CCC05 
R COO 5 7 0C030 

* B 00035 

A 00057 CC057 CCC05 
G C0058 00498 CC056 
G 00059 00498 C0057 
y 00060 00058 C 0 0 59 
C 000C6 00060 C0C36 00037 
R 00422 GC008 
E 00198 

* B 00036 


CRITERION 00321 

0032 2 

( 1 8 ) =4 9 CO 32 3 

G 0 3 2 4 

00325 

00326 

00327 

00328 

00329 

00330 
G 0 3 3 1 
GO 3 32 

B COO 3 1 00333 


REPLACE SERIES COUNTER BY ZERO INITIALLY 00334 

INITIALIZE FLIP FLOP 00335 

0033* 

( 422 )= M A R KER 00337 

003 38 

GENERATED SERIES COUNTER IS ZERO INITIALY u0339 

N 1 =N0 OF TERMS IN A SERIES 00340 

N 2 = N 0 OF TERMS IN B SERIES 00341 

(47)= 3N SUB 1 uQ 342 


00343 
CO 344 


G 0 3 4 5 
Go 346 
00347 

(56)= A SERIES COUNTER 00346 

6 0 0 C 3 4 CO 349 

(56) + 3 00 35 0 

(57) = B SERIES COUNTER 00351 

b 00o35 uO 352 

(57)+ 3 00353 

A SUB X uO 3 54 

B SUB Y 00355 

00356 

00357 
0035b 
00359 

b OuO 3 6 u0360 


K 


0C2GC 


LINE CO 360 
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K 


0C2CC 


LINE 00361 
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s 

00061 

CC0C6 

CGOfcC 



F 

CCC38 




* 

B 

CCC37 





R 

00061 

CCG6C 



• 

4 

000 38 





C 

COG 16 

0 C 0 6 1 

CCC29 

00035 

• 

B 

C0C29 





C 

00057 

CCC32 

CC 040 



R 

CO ^2 2 

CCCCfl 




r 

00198 




• 

B 

CC04C 





C 

0004 7 

CC056 

COO 34 



R 

00422 

C 0008 




F 

CO 1 9 8 




• 

B 

00039 





G 

00C62 

00455 

CCC56 



C 

00062 

0C0C6 

C 004 1 

C0C42 

• 

B 

0CC41 





R 

0QC63 

CC0C7 




R 

00064 

CCC62 




F 

00043 




• 

R 

00042 





R 

0006 3 

CCCC8 




S 

00064 

CCCCfi 

C0062 


* 

B 

CO 04 3 





R 

00 L 60 

C0CC7 




R 

00116 

0CCC7 




R 

002C0 

CCCC7 




R 

00372 

CC0C7 




R 

00065 

0 C 0 6 4 




G 

C 0 C 6 4 

U05CG 

CCC56 



G 

C0082 

CC455 

CCC57 



C 

C 0 0 8 2 

CCOCfc 

OC 0^4 

CC045 

• 

B 

0C0A4 





R 

COO 83 

CCCC7 




R 

00064 

CC082 




E 

CO 04 6 




ft 

B 

C0045 





R 

00083 

CCGCb 




S 

00084 

0CCC6 

COO 82 



K = CC2CC 


ARS. VAL AB 

1ST TERM OF B SERIES ENO 
(422)= -1 MARKER 

A* 

( 64 ) = A BS • VAL. a** 

A* CON T INUEO 

3 * 

COS. (JR SIN INC. 

COS OR SIN INC. 

LINE 00400 


00361 
GO 362 

B 00037 00363 

00364 

8 00038 00365 

00366 

6 0.0029 00367 

MUL TIPLICATI 00368 

00369 

00370 

B 00040 00371 

00372 

00373 

00374 

B 00039 00375 

00376 

00377 

B 00041 00378 

00379 

00380 

00381 

B 00042 00382 

00383 

00384 

B 00043 00385 

00386 

00387 

00388 

00389 

00390 

00391 

00392 

00393 

B 00044 00394 

00395 

00396 

00397 

b 00045 00398 

00399 

00400 
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co 

CO 



CO 

o 


K 


GC2C0 


• B 00046 

R 00085 C 0 0 84 
G 00084 005C0 CC057 
A 00128 C 006 5 00085 
S 00128 00128 00460 
A 00094 00064 00084 
S 00094 00094 00461 
C 00065 C 008 5 00463 00468 
C 00064 0CC84 00463 

* B 00468 

A 00134 00085 CC460 
S 00134 00134 CC065 
A 00097 CC084 C0461 
5 00097 00097 0C064 
R 00116 C 000 8 
E 00464 

• B 00463 

A 00134 00065 00460 
S 00134 0C134 C0085 
A 00097 00064 00461 
S 00097 0C097 00084 

* B 00464 

C 00128 00460 00465 00465 
C 00094 00461 C0465 C0465 
R 00200 CC0C6 

* B 00465 

C 00134 00460 00466 00466 
C 00097 00461 00466 00466 
R 00372 00006 

* B 00466 

C 00063 0C006 00022 C0023 
R 00422 0C0C8 
E 00198 

• B 00023 

C 00083 0C006 C0024 00025 
E 00198 

• B 00025 

R 00135 00060 
M 00136 00135 0C011 
R 00137 0C128 




K 


0C2C0 


LINE 00401 
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B* CONTINUED 

A* + B* 

A* * + R* * 

R 

C0C46 

oeooooooc 

ooooooooo 

ooooooooo 

(139)= 1 A *- R* 1 
(96)= 1 A * A *-B * * 1 

B 

00468 

00410 
0041 1 
00412 
U0413 

00414 

00415 

00416 


B 

00 463 

0041 7 

00418 

00419 
U0420 
00421 

A* +B*1=C 
1 A * * +[<**1 = 0 

H 

00464 

00422 

00423 

00424 

00425 

1A*-B*1=Q 
1 A**-6**l = 0 

a 

00465 

00426 
0042 7 

00428 

00429 


8 

00466 

0 04 3 0 

00431 

00432 

00433 


a 

0002 3 

U0434 

00435 

00436 

SIN SIN 

a 

00025 

00437 

00438 
U0439 
00440 


LINE 00440 
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K 


0C200 


LINE 00441 
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R 

00138 

CC136 



00441 


R 

00139 

CC134 



00442 


S 

00136 

0C006 

C 0 1 36 


00443 


E 

COO 28 




00444 

• 

8 

C0024 


SIN COS 

B 00024 

00445 


R 

00135 

C0060 



00446 


P 

00136 

00135 

C0011 


00447 


S 

00137 

0C006 

CO 1 28 


00448 


R 

00138 

0C136 



00449 


S 

00139 

CCQC6 

CO 134 


00450 


y 

00138 

00138 

00116 


00451 



00136 

00136 

OC 160 


00452 


P 

00136 

00136 

0C200 


00453 


P 

00138 

C 0 1 38 

CC372 


00454 


E 

00028 




00455 

• 

B 

00022 



B 00022 

00456 


C 

C0063 

CCC06 

00C26 0C027 


00457 


E 

00198 




00458 

« 

8 

00026 


COS COS 

B 00026 

00459 


R 

00135 

0C06C 



00460 


y 

00136 

00135 

COOii 


00461 


R 

00137 

00128 



00462 


R 

00138 

CO 1 36 



00463 


R 

CO 1 39 

0C134 



00464 


E 

00028 




00465 

• 

8 

00027 



B 00027 

00466 


R 

00135 

CC06C 



00467 


M 

00136 

00135 

CCC11 


00468 


S 

00137 

OCC06 

CO 128 


00469 


s 

00138 

C0C06 

CO 1 36 


00470 


s 

CO 139 

CC006 

00134 


00471 


y 

00138 

CC138 

C0116 


00472 


y 

CO 1 36 

CO 1 36 

00160 


00473 


y 

00136 

00136 

C0200 


00474 


y 

CO 1 38 

CC138 

CC372 


00475 

• 

B 

C0028 



B 00028 

00476 


R 

00161 

0C136 



00477 


R 

CO 162 

0C137 



00478 


R 

00120 

0C094 



00479 


E 

CO 1 59 




00480 


K = 0C200 


LINE 00480 
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co 



CO 

CO 


K 


0C2C0 


LINF 00481 
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• B C 0 1 56 

R 00161 0C138 
R 00162 00139 
R 00120 0GC97 

• B GO 1 59 

R 00164 0C033 164=2N 

I 00407 +1CCGCC00+01 
I 00165 +COCCOCOO+OC 
C 00161 00CC6 C 0 1 5 5 00155 
E 00158 

• B 00155 

A 00164 00164 CCQ05 A COUNTER 

G 00204 00500 CC033 

C 00407 002C4 00411 

G 00166 00499 00164 STOREDA* 

| G 00110 00500 00164 STORED A* CONTINUED 

| A 00165 00165 0CCC7 

I C 00162 00166 00157 00157 

5 C 00120 00110 00157 C0157 

S G 00167 00490 00164 STORED C 

1 A 00168 00167 00161 C+A=NEW C 

| • B 00201 

I H 00498 00164 00168 STORE SUM 

1 E 00158 

I * B 00411 

= H 00498 00164 00161 

1 H 00499 00164 00162 STORE C* 

= H 005C0 00164 00120 STORE C* CUNT 

A 00164 00164 C0005 
5 H 00498 00164 C0006 

2 H 00499 00164 00C06 

I H 005C0 00164 CCC06 

= R 00204 0CCC7- 

- H 00500 C0033 00204 

= E 00158 

E • B 00157 

G 00204 C05C0 CGC33 
= C 002C4 00165 C0155 

= A 00204 00204 CCC07 (204)+l 

H 005C0 00033 00204 


B 00156 00481 

00482 

00483 

00484 

B 00159 00485 

00486 

00487 

00488 

00489 

00490 

B 00155 00491 

00492 

00493 

00494 
C0495 

00496 

00497 

00498 

00499 

00500 

00501 

B 00201 00502 

00503 

00504 

B 00411 00505 

00506 

00507 

00508 

00509 

00510 
0051 1 

00512 

00513 

00514 

00515 

b CO 1 5 7 00516 

00517 

00518 

00519 

00520 


K 


0C20G 


LINE 00520 


PAGE 013 



K 


0C200 


LINE 00521 


PAGE 014 


A 00164 00164 CCC05 00521 

H 00458 00164 CC161 STORE C 00522 

H 00459 C0164 00162 STORE C» 00523 

H 005C0 00164 CO 120 STORE C* CONT. 00524 

A 00164 00164 CC005 00525 

H 00458 00164 CC0C6 00526 

H 00499 OC 164 0C006 00527 

H 005C0 00164 C0CC6 00528 

C 00204 00360 00158 C0158 END ARR IF NU OF TERMS LARGER THAN 2N-1 00529 

E 00158 00530 

* B 00158 B 00158 00531 

M 00177 00177 00008 177 -1 TO +1 AND RACK 00532 

C 00177 CC006 CO 1 56 C0178 00533 

* B 00178 B 00178 00534 

M 00151 CC05C CC005 00535 

S CO 122 00057 CCC30 00536 

C 00151 00122 CCC35 LAST B TERM 00537 

M C0152 00045 CC0C5 00538 

C 00152 CC056 00034 00539 

R 00422 CC008 LAST A TERM 00540 

* R 00198 B 00198 00541 

C 00009 002C4 00425 00542 

M 00179 00204 C0005 3 N SUB C 00543 

I 00197 +CCOCCCCO+OC 00544 

I 00205 +OOCCCCOC+OC 00545 

S 00157 00175 CCC05 00546 

R 00183 CC033 00547 

A 00015 C0033 C0030 2N+N 00548 

S COO 19 00015 CCC05 00549 

S 00019 CC019 0C007 00550 

A 00157 0C197 CC033 N SUB C-3 00551 

* B 00180 B 00180 00552 

A 00205 00205 CC007 00553 

A 00183 00183 CC005 00554 

S 00184 00183 00005 OR ZER 00555 

G 00185 00458 C0183 C 00556 

G 00186 00459 C0183 C* 00557 

G 00187 005C0 00183 C** 00558 

* B C0181 B 00181 00559 

A CO 1 84 00184 0CC05 00560 

K = 002CC LINE 00560 PAGE 014 


GO 

GO 



K 


0C2C0 


LINE 00561 
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G 

002C0 

005C1 

C 0 1 84 

G 

002C3 

00502 

CO 1 84 

G 

002C2 

005C3 

CO 1 84 

C 

C0006 

CC185 

0C193 

R 

00191 

CO 1 8 5 


B 

00194 



C 

00006 

0C2C0 

00195 

R 

00192 

002C0 


B 

CO 1 96 



C 

00191 

00192 

CO 1 82 

E 

CO 1 82 



B 

00190 



H 

005C1 

CO 1 84 

C0185 

H 

005C2 

00184 

00186 

H 

005C3 

0C184 

CO 1 87 

R 

CO 1 85 

C02C0 


R 

CO 1 86 

0C2C3 


R 

CO 1 87 

00202 


B 

CO 1 82 



C 

00197 

00184 

CO 1 8 1 

H 

00498 

C0183 

00185 

H 

00499 

00163 

CO 1 86 

H 

00500 

CO 1 83 

00187 

C 

00183 

COO 1 9 

00206 

C 

CO 1 97 

00183 

CO 1 80 

E 

C0425 



B 

00193 



S 

00191 

C00C6 

00185 

E 

CO 1 94 



B 

00195 



S 

00192 

0C0C6 

C0200 

E 

00196 



B 

002C6 



H 

005C0 

CC033 

OC 205 

B 

00425 



E 

00499 



C 

C00C6 

00422 

C0499 

A 

00424 

0C424 

CC0C7 

D 

00204 

CC030 

C0005 

R 

00164 

0 C 0 3 3 



00 1 90 


C0425 


C SUB X 
C** SUB 


00561 

00562 

00563 

00564 

00565 

B 00194 00566 

00567 

00568 

8 00196 00569 

00570 

00571 

B 00190 00572 

00573 

00574 

00575 

00576 

00577 

00578 

B 00182 00579 

00580 

00581 

00582 

00583 

00584 

00585 

00586 

B 00193 00587 

00588 

00589 

0 00195 00590 

00591 

00592 

B 00206 00593 

00594 

B 00425 00595 

00596 

00597 

00598 

00599 

00600 


K 


0C2C0 


LINE 00600 
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A 00164 
E 00158 

* B 00209 
I 00207 
E 00210 

* B 00200 
I 00207 

• B 00210 
R 00204 
R C0422 
M 00033 
M C0218 
G 00219 
M 00219 
A C0219 
R 00223 
R 00221 
I 00238 

* B 00211 
A 00223 
G 00224 
M 00224 
H 00498 
C 00219 
I 00220 

• B 00212 
A 00220 
G 00225 
G 00226 
G 00227 
R 00222 

• B 00213 
A 00222 
G 00228 
G 00229 
G 00230 
C 00226 
C 00227 
A 00225 
H 00498 


K = 00200 

LINE 

00601 

PAGE (.16 


00164 C0030 

164= 2 N +N 



0060 1 





00602 


B 209 = ACO 


B 002C9 

00603 

+10CCCC00+C1 

(207) = ADC OR SUBTRACT INO. 


00604 





00603 


B 208 = SUBTRACT 


B 0020 8 

00606 

-10CCCC0C+01 




00607 




B 00210 

00608 

0C006 




00609 

CCCC7 




00610 

CC030 CCC09 




0061 1 

005C0 00005 

3N SUB 1 



00612 

00500 CC03O 




C0613 

00219 CCC05 

3N SUB 2 



00614 

00219 CCC30 




00615 

CC030 

B STORAGE COUNTER 



00616 

0003 3 

C STORAGE COUNTER 



00617 

+C0CCC000+0C 




00618 




b 00211 

00619 

00223 CC005 

B + 3 



00620 

00498 00223 

B 



00621 

00224 0C2C7 

+ OR - B FOR ADD OR 

SUBTRACT 


00622 

00223 00224 

STORE + OR - B 



00623 

0C223 00211 




00624 

+00000000+00 

(220) = A COUNTER 



00625 




h 0 u 2 1 2 

00626 

00220 CC005 

(220) +3 



00627 

00498 C0220 

A 



00628 

00499 00220 

A* 



00629 

005C0 00220 

A** 



U0630 

0C03C 




00631 




B 00213 

00 6 3 2 

00222 CC005 

B COUNTER +3 



00633 

00498 00222 

B 



00634 

00499 00222 

B* 



u 0 6 3 5 

005C0 00222 

B** 



00636 

00229 00214 C0214 

A* NOT B * TO B214 



00637 

0C230 C0214 00214 

A* NOT B** TO B214 



00638 

0C225 00228 

A + B 



00639 

00222 00006 




00 640 

K = CC2C0 

LINE 

00640 
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• CO 

cn 



oo 

* 05 


K 


0C2C0 


H 00459 0C2 2 2 CC006 
H 005C0 00222 0C006 
R C0471 0C225 
C 00225 0C0C6 C0472 
S 00471 0C0C6 C0225 

• B 00472 

C C0471 00016 C0239 
E C0215 

• B 00214 

C 00219 00222 0C213 

C 00225 CC0C6 00239 00239 

E 00215 

• B 00239 

A 00221 00221 CCCC5 C+3 

A 00238 C0238 CCCC7 

H 005C0 CC033 C0238 

R 00204 CC238 

H 00498 00221 C0225 STORE A 

H 00499 002 2 1 C0226 STORE A* 

H 00500 00221 00227 STORE A** 

• B 00215 

C 00218 00220 C0212 LAST A TERM 

• B 00216 

R 00230 0003 C 

• R 00217 

A 00230 00230 CCC05 

G 00231 00498 00230 B 

G 00232 00495 CC230 B* 

G 00233 005C0 CC230 B»* 

C 00231 00006 00235 00235 B=0 

E 00236 

• B 00235 

A 00221 00221 C0005 

A 00238 C 02 3 8 CC0C7 

H C05C0 00033 00238 

R 00204 0C23e 

H 00458 00221 CC231 STORE B 

H 00459 CC221 CC232 STORE B* 

H 00500 00221 CC233 STORE B** 

• B C0236 


K 


0C2CC 


LINE 00641 
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00641 

00642 

00643 

00644 

00645 

B 00472 00646 

00647 

00648 

B 00214 00649 

00650 

00651 

00652 

B 00239 00653 

00654 

00655 

00656 

00657 

00658 

00659 

00660 

B 00215 00661 

00662 

B 00216 00663 

00664 

B 00217 00665 

00666 

00667 

00668 

00669 

00670 

00671 

B 00235 00672 

00673 

00674 

00675 

00676 

00677 

00678 

00679 

B 0 u 2 3 6 00680 


LINE C0680 
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K 


CC2C0 


LINE C0681 


PAuC 018 



c 
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B 00366 

01012 


A 

00247 

00247 

CCC05 



01013 


G 

00249 

00498 

CC247 

A 


01014 


G 

00250 

00499 

CC 247 

A* 


01015 


G 

00259 

C05C0 

00247 

A* CONTINUED 
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D 

00251 

00259 

CC013 



01017 


A 

00251 

00251 

0C012 



01018 


S 

00251 

00251 

COO 12 



01019 


S 

00251 

00251 

GOO 17 

MTH ARGUMENT 


01020 


c 

00251 

0C006 

CC367 00367 

MTH ARG ZERO OMIT TERM 
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E 

00369 
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ft 

B 

00367 




b 00367 

01023 


C 

00250 

CC0C6 

00368 00370 

(368=COS) 370=S I N 


01024 

ft 

B 

00368 




B 00368 

01025 


M 

00252 

00249 

0025 1 

M (A) 


01026 


M 

00252 

00252 

00008 

-M (A) 


01027 


M 

00253 

00250 

00008 

CCS TO SIN 


01028 


E 

00371 





01029 

• 

B 

C0370 




B 00370 

01030 


M 

00252 

CC249 

00251 



01031 


M 

00253 

0 02 50 

00008 

SIN TO COS 
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ft 

B 

00371 




B 00371 

01033 


A 

00248 

00248 

CC005 
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A 

00238 

C0238 

CC007 
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H 

005C0 

00033 

00238 

STORE NO. OF TERMS 


01036 


R 

00204 

00238 
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H 

00498 

00248 

CO 252 

STORE + OR - MA 
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00499 

00248 

00253 
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• B 00369 

C C0255 C0247 0C366 
R 00422 CC0C8 
E 00198 

• B 00375 

R 00204 0C0C6 
R 00422 CCCC7 
G 00277 005C0 00030 
M 00277 CC277 CC005 
A 00277 0C277 CC030 
M 00033 CC030 CCC09 
R 00278 C CO 30 
R C0279 CC033 
I 00238 +C0CCCCCC+00 

• B 00376 

A 00278 0C278 CC005 
G 00280 C 049 8 00278 
G C0281 00499 00278 
G C0282 C05C0 C0278 

• B 00377 

D 00283 00282 00013 
A 00283 C0283 CC012 
S 00283 00283 C0012 
S 00283 00283 00017 
C C0283 00006 00378 00379 
E 00380 

• B CO 3 78 

0 00284 00280 00283 
M 00285 00281 COCO 8 
E 00381 

• B CO 3 79 

D 00284 C0280 C0283 
M C0284 C 02 84 CCC08 
M 00285 00281 CC0C8 

• B 00381 

A 00238 00238 0C007 
A 00279 00279 CC005 
H 005C0 CC033 CC238 
R 002C4 0C238 
H 00498 00279 00284 
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3N 
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( 279 ) ^STORAGE COUNTER 
(238)=TERM COUNTER 


A 

A* 

A* CONTINUED 


( 378 = COS < 3 79 ) =S I N 


A/M 

COS TO SIN 


-A TO + A 
SIN TO COS 

TERM COUNTER UP 

STORE NUMBER OF TERMS 

TERM COUNTER TO ARRANGR 


B 00369 01041 

01042 

01043 

01044 

B 00375 01045 

01046 

01047 

01048 

01049 

01050 

01051 

01052 

01053 

01054 

B 0C376 01055 

01056 

01057 

01058 

01059 

B 00377 01060 

01061 
01062 

01063 

01064 

01065 

01066 

B 00378 01067 

01068 

01069 

01070 

B 00379 01071 

01072 

01073 

01074 

B 00381 01075 

01076 

01077 

01078 

01079 
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H 

00499 

00279 

00285 




01081 

H 

005CO 

00279 

C0282 




01082 

B 

C0380 




b 

00380 

01083 

C 

00277 

0C278 

C0376 




01084 

R 

00422 

CC0C8 





010Q5 

E 

00198 
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K 

COOOO 






01087 

K 

416C0 



PRINT OUT MEMORY FUNCTION 



01088 

Q 

900C0 

45202 





01089 

0 

9C0C1 

45201 





01090 

V 

00006 

+COOCCOOO+OO 




01091 

B 

00001 




B 

00 001 

01092 

R 

90000 

0C0C5 





01093 

E 

90001 






01094 

B 

00005 




B 

00005 

01095 

R 

900C0 

0C0C6 
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01096 

E 

00002 
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K 
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K 
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P-TH ORDER BESSEL FUNCTION 
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OF X 
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01102 





OUTPUT J SUB P OF X 
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B 

00001 




H 

00001 

01104 

G 

00015 

00001 

00C03 




01105 

G 

00016 

CC0C2 

CCC03 




01106 

R 

00017 

CC010 


COMPUTE X TO THE P 



01107 

R 

00018 

coon 


TWO TO THE P AND 



01108 

R 

00019 

00011 


P FACTORIAL 



01109 

R 

00020 

00011 





onio 

C 

00011 

00015 

CCC06 




01111 

B 

00005 




b 

00005 

01112 

A 

00017 

00017 

00011 




01113 

M 

COO 18 

00018 

COO 16 




01114 

A 

00019 

00019 

00019 




01115 

M 

00020 

00020 

COO 17 




01116 

C 

00015 

00017 

C0005 




01117 

B 
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R 

00024 
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00021 
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M 00022 0001S CC020 
0 00027 0002 1 00022 
M 00023 00016 CC016 
S 00023 00010 CC023 
• B 00007 

A 00024 00024 00011 
M 00021 C 002 1 00023 
A 00025 00024 00015 
M 00022 00024 00022 
M 00022 00022 C0025 
M 00022 00022 00014 
D 00026 00021 00022 
R 00028 CCC27 
A 00027 00020 CC026 
C 00028 00027 C0C07 C0007 
H 00001 00004 CO 0 27 
E 00002 

V 00010 +C0CC0000+00 

V 00011 +100CCC00+01 

V 00012 +20C0CCC0+0 1 

V 00013 + 50CC0000 + 0 1 

V 00014 +40000000 + 0 1 
K COOOO 

K 41100 
Q 91601 41601 
0 03600 C0001 
Q 04200 00002 
Q 04800 CC0C3 
Q 05400 0CC04 
G 06000 CC005 
Q 06600 00006 
Q 07200 00007 
G 07800 CC008 
G 08400 00009 
Q 09000 00010 
Q 09600 0C011 
G 102C0 0C012 
Q 10800 00013 
Q 11400 00014 
Q 12QC0 00015 
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LAMBDA1 

LAMB0A2 

LAMBDA3 
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NU 
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W 
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HSUB 0/H 
CAP. PSI 
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01126 
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01128 
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01136 
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01138 
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01140 

01141 

01142 

01143 

01144 
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01157 
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01159 
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0 

126C0 

CC016 


01161 

c 

132C0 

CCC17 


01162 

0 

13800 

CC018 


01163 

G 

14400 

00019 


0 1 16 A 

Q 

15000 

0C020 


01165 

Q 

15600 

GO 02 1 


01166 

Q 

162C0 

00022 


01167 

Q 

16800 

00023 


01168 

Q 

17A00 

0C02A 


01169 

G 

18C00 

0C025 


01170 

Q 

1 8600 

0C026 


01171 

Q 

192C0 

00027 


01172 

G 

19800 

CC028 


01173 

G 

20AC0 

CC029 


01174 

G 

21000 

CCC30 


01175 

G 

21600 

C0031 


01176 

G 

22200 

CC032 


01177 

C 

228C0 

0003 3 


01178 

G 

23AC0 

CC03A 


01179 

G 

2AC00 

COO 3 5 


01180 

G 

2A6C0 

CC036 


01181 

G 

252C0 

OCQ37 


01182 

G 

25800 

C0038 


01183 

G 

9005 1 

00051 

SQUARE ROOT FUNCTION 

01184 

G 

90071 

0CC71 

SINE FUNCTION 

01185 

G 

90075 

CC075 

COSINE FUNCTION 

01186 

G 

90016 

00216 

NUMERICAL CRITERION 

01187 

G 

90030 

00230 

NUMBER OF CELLS 

01188 

G 

90101 

C01C1 

SERIES MOVE 

01189 

C 

90111 

00111 

SERIES ADC 

C 1 190 

G 

90116 

00116 

SERIES SUBTRACT 

01191 

G 

90121 

00121 

SERIES MULTIPLY 

01192 

C 

90700 

CC7C0 

OPERATING CELLS 

01193 

G 

90126 

00126 

SCALAR MULTIPLY 

01194 

G 

90131 

CO 1 3 1 

ARGUMENT EXTRACT 

01195 

C 

90136 

00136 

DIFFERENTIATION 

01196 

G 

90 1 A 1 

C01A1 

INTEGRATION 

01197 

G 

901A6 

001A6 

BAR FUNCTION 

01198 

Q 

90151 

00151 

MTH ARGUMENT DIFFERENTIATE 

01199 

G 

90156 

00156 

MTH ARGUMENT INTEGRATE 

01200 
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G 

90521 

00521 

INT. CONST. N SUB 0 

01201 

G 

90522 

00522 

INT. CONST. N PRIME SUB 0 

01202 

G 

90523 

00523 

INT. CONST. Y+ALPHA-ETA 

01203 

G 

90 524 

OC 524 

INT. CONST. YPR . + AL PHA + E T A 

01204 

G 

9 3 1 C 1 

410C1 

BESSEL FUNCTION 

01205 

C 

90901 

4 1 30 1 

TAYLOR SERIES EXPANSION 

01206 

C 

90903 

41311 

DIFF TAYLCR EXPANSION 

01207 

Q 

9C0C1 

4 50 0 1 

SCRT AND PRINT 

01208 

Q 

912C1 

45201 

P.O.M. 

01209 

C 

90 1 C 3 

CC051 

SO. ROOT 

01210 

V 

OOOC5 

+ 898262 79-0 1 

VALUE or CAP I SUB 0 

01211 

V 

CC006 

+1CC0CCC0+01 

( 6 ) - A SUB C 

01212 

V 

C00C7 

+54908C7C-01 

( 7 ) = E SUB 0 

01213 

V 

C0CC8 

+ 22QC2 7 1 3 + CO 

( 8 ) = N SUB 0 

01214 

V 

00010 

+39494471+03 

(10)= A PRIME 

01215 

V 

0001 1 

+16792260-01 

(11)= E PRIME 

0 1 2 16 

V 

COO 1 2 

+ 1720197 0-0 1 

(12)= N PRIME 

U1217 

V 

00013 

+COCOCCOO+OC 

(13)= SMALL I # =0 

01218 

V 

COO 1 8 

+C0C0C0C0+00 

( 1 8 ) =0= N SUB 0 Y PRIME 

01219 

V 

COO 1 9 

+ 1CCOCOCC-C7 

(19)= CRITERION 

01220 

V 

CO 020 

+ 1CCCCCCC + 0 1 

( 20 ) = 1 

01221 

V 

00021 

+5CCCOCCC+OC 

(21) =1/2 

01222 

V 

00022 

-10CCCCC0+01 

(22)=-l 

01223 

V 

CO 02 3 

+ OCCCCCC C + 00 

( 2 3 ) =C 

01224 

V 

COO 24 

+20CCCCCC+01 

( 24 ) =2 

01225 

V 

00025 

+49CC0CG0+02 


01226 

V 

00026 

+30000000+01 

( 26 ) = 3 

01227 

V 

C0027 

+10CCCCCC+07 


01228 

V 

C 0 0 2 8 

+1CC0QCC0+05 

(28) IS 10 TO THE FOURTH 

01229 

V 

00029 

-15CCCC00+01 

( 29 ) =— 3/2 

01230 

V 

00030 

+10CCCCC0+01 


01231 

V 

CO 0 3 1 

+C0CCCCCC+03 

SERIES =0 

01232 

V 

COC32 

+C050505C+08 


01233 

V 

00033 

+50505050+06 


01234 

V 

CO 0 3 5 

+10CCCCC0+01 

CCS OMEGA 

01235 

V 

COO 36 

+100CCCCC+0L 


01236 

V 

C 0 0 3 7 

+C0505 1 50+08 


01237 

V 

CO 0 3 8 

+50505050+08 


01238 

V 

00040 

+10CCCCCO+01 


01239 

V 

00041 

+1000CCCC+01 

SIN OMEGA 

01240 
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V C0042 -00505150+08 01241 

V 00043 +5050505C+08 01242 

V 00045 +ICCC0C00+01 01243 

V 00046 +1CCCOOOC+01 01244 

V 00047 +00505051+08 CCS OMEGA PRIME 01245 

V C0048 +50505050+08 01246 

V 00050 +10000000+01 01247 

V 00051 +1COOCOOC+01 (50)= SERIES FORM OF ONE 01248 

V 00052 +00505050+08 01249 

V 00053 +50505050+08 01250 

V 00054 -00505050+08 01251 

V 00055 +10000000-03 01252 

V C0C55 +1C0C00C0-04 01253 

V 00055 +10CCCC00-12 01254 

V 00055 + IOCCOCOO-08 SERIES TEMPORARY MULTIPLICATION CRITERION 01255 

V 00055 +10C0C000-1C 01256 

V 00055 +10000000-19 01257 

V C0055 +100CCCC0-11 01258 

V 00055 + 1CCCCCC0-07 01259 

V C0055 + 10C0C000-05 01260 

V 00060 +10000000+01 01261 

V C0061 +10CCCC00+01 SIN OMEGA PRIME 01262 

V 00062 -00505051+08 01263 

V 00063 +50505050+08 01264 

V 00065 +100CCOCO+01 01265 

V 00066 +CCCCCCCO+OC 0 SERIES 01266 

V 00067 +C0505050+0e 01267 

V 00068 +50505050+08 01268 

V 00070 +1000CC0C+01 01269 

V C0071 +10000000+01 01270 

V 00072 +00505050+08 COS THETA SERIES 01271 

V 00073 +50515050+08 01272 

V 00075 +1000CCC0+01 ol273 

V 00076 +100CCC00+01 01274 

V 00077 -00505050+08 SIN THETA SERIES 01275 

V C0078 +50515050+08 01276 

V C0089 +50000000+01 01277 

V C0089 +80CCCCC0+01 01278 

V 00090 +01505050+08 CCS G 01279 

V 00091 +50505050+08 01280 
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V 00098 +COCCCCOO+OC { 98 ) =0=D OMEGA PR./DT 01281 

V C0C99 +10C0CC00-06 NEW CRIT 01282 

V 00130 -40C0CCC0+0 1 01283 

V 00160 +35493600+06 1160)= M PRIME 01284 

V 00171 +15COCCOO+01 01285 

V 00173 +25C0CCC0+01 01286 

V 00176 +4375CCC0+01 (1761=35/8 01287 

V 00177 +375CC000+01 (1771=15/4 01288 

V 00178 +375C0CCC+0C ( 178 ) =3/8 01289 

V 00181 +4CC0CCC0+0 1 01290 

V 00182 +75CCCCC0+O1 01291 

V 00183 + 1 75CCC00+02 01292 

V 00184 +5000000C + 0 1 (184)= 5 01293 

V 00267 -30C0CCC0+01 01294 

V 00324 + 1 0C0CC CO-O 7 01295 

V 00398 +300CC000+03 NO. OF OPERATING C6263 IS 300 01296 

V 00399 +6000COCO+C3 NC. OF OPERATING 06263 IS 600 01297 

V 00399 + 10000000 + 05 (NO. OF CELLS IS 10,000) 01298 

V 90016 + 1OCCGC0O-O3 MULTIPLICATION CRITERION 01299 

V 90030 + 3CCCC000 + 03 NUMBER OF OPER CELSS IS 300 01300 

V 00401 +10CCCC00-1C 01301 

V 00401 + 1OCCCCC0-O8 CRIT. IS 1C TO -9TH 01302 

V C0401 + 10CCCGC0-09 01303 

V 00401 +10000000-05 01304 

V 00401 + 1000C000-07 01305 

V 00403 + 1000CC00-06 CRIT. IS 10 TO -7TH 01306 

V 00408 +1S4CCC00-02 01307 

V 00430 +00505149+08 01308 

V 00431 +50505050+08 0L309 

V 00432 +00505248+08 01310 

V 00433 +50505050+08 01311 

V 00434 +00505347+08 01312 

V 00435 +50505050+08 01313 

V 00436 +00505446+08 01314 

V 00437 +50505050+08 01315 

V 00460 -00505149+08 C1316 

V 00461 +50505050+08 01317 

V 00462 -00505248+08 01318 

V 00463 +50505050+08 01319 

V 00464 -00505347+08 01320 
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V 

00465 

+50505050+08 



01321 

V 

00466 

- 00 5054 4 6 + 08 



01322 

V 

004 6 7 

+ 5050505C + 08 



01323 

V 

00491 

+ IQCCCCCC-03 



01324 

V 

00492 

+1CC0CCC0-01 



01325 

B 

00001 




B 00001 

01326 

Q 

90698 

00698 




01327 

Y 

C0001 

9C698 




01328 

R 

90016 

OOACl 


CR1T IS TEN TC MINUS EIGHT 


01329 


T HANSEN 

LUNAR THEORY 

AS MODIFIED BY DR. MUSEN 


01330 

P 

00018 

00020 

PA 



01331 

P 

00018 

CC020 

TA 



01332 

B 

00101 




B 00101 

01333 

R 

90030 

CC398 


CHANGE SERIES LENGTH 


01334 

R 

C0015 

00023 


N SUBP Y=C 


01335 

R 

COO 1 7 

CC023 


N SUB C £ T A=0 


01336 

R 

00016 

0C023 


N SUB 0 ALPHA-0 


01337 

R 

C0084 

0C023 


( 84 ) = 0 INITIALLY 


01338 


00123 

00029 

CCC07 

-3/2 SMALL E SUB 0 


01339 


00124 

CC007 

CCC07 



01340 

S 

00125 

00020 

C0124 

1- E SUB 0 SQ. 


01341 

F 

CO 1 26 

9C051 

CO 1 25 

SQ RT. (1- 


01342 

R 

00155 

00126 




01343 

R 

004C2 

CC126 




01344 

D 

CO 1 56 

00020 

00126 

(156) = 


01345 

0 

00133 

0C0C7 

00126 



01346 

M 

00126 

00126 

C0C24 



01347 

D 

00126 

00126 

CC007 

2 SQ RT. ! 1-EO SQI/2 


01348 

M 

00127 

00124 

C0021 

1/2 E SUB 0 SG. 


01349 

y 

00128 

C 0024 

CCC07 

2 E SUB 0 


01350 

s 

00128 

C 002 3 

CO 1 28 

-2 E SUB 0 


01351 

M 

00129 

00124 

C0029 



01352 

S 

00129 

00023 

CO 1 29 

+ 3/2 E SUB 0 SQ. 


01353 

y 

CO 1 3 1 

0CC06 

00008 

( N SUB OKA SUB 0) 


01354 

D 

00132 

00131 

CO 1 2 5 

(N SUB OKA SUB OI/l-E SUB 0 SQ. 


01355 

M 

00140 

00029 

coon 



01356 

y 

00141 

coon 

coon 



01357 

s 

CO 142 

00020 

C 0 14 1 

1- E PRIME SQ. 


01358 

F 

CO 1 43 

90051 

CO 142 



01359 

M 

00143 

C0143 

C0024 
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D 

00143 

00143 

COOil 


01361 

0 

00150 

C0020 

00007 

(150)- 1/E SUB 0 

01362 

M 

CO 1 52 

00132 

0C024 


01363 

M 

00153 

00152 

C 0 1 50 


01364 

M 

00154 

0C005 

C0021 

1/2 I SU0G 

01365 

D 

00157 

00020 

00125 

(15 7)= l/SQU-E SUBO SQ) 

01366 

M 

00158 

CC007 

C0024 

2E SUBO 

01367 

R 

M 

00161 

00165 

C0006 

00161 

00161 

( 1 65 ) = A SQ. 

01368 

01369 

M 

00166 

00165 

00160 

M PRIME A SC 

01370 

M 

00167 

00010 

CC010 

( 1 67 ) = A PRIME SO 

01371 

M 

00168 

00167 

CC010 

( 1 6 S ) = A PRIME CUBED 

01372 

M 

00169 

00168 

C0010 

( l 69 ) = A PRIME 4TH 

01373 

M 

0017C 

00169 

C0010 

I170)*A PRIME 5TH 

01374 

D 

CO 1 72 

00166 

OC 168 

M PRIME A SC/A PRIME CUBED 

01375 

V 

00174 

00166 

C0161 


01376 

0 

00175 

00174 

00169 

( 175 ) = M PRIME A CUB/A PR. 4TH 

01377 

M 

00179 

00175 

00161 


01378 

D 

00180 

CO 1 79 

CC010 

( 1 80 ) =M PRIME A 4TH/A PR.5TH 

01379 

0 

00192 

0CCC7 

00125 

( 192 ) = ( E SUR O/l-E SUB 0 SO) 

01380 

M 

00195 

00156 

CO 1 31 


01381 

0 

00196 

00195 

0C024 


01382 

F 

00197 

9C071 

CC013 

(197)= SIN I PRIME 

01383 

M 

00198 

00197 

CCC98 

( 198 ) =S I N I PR) D UMEGA PR./DT 

01384 

M 

00199 

00198 

00021 

(199)= 1/2 SIN I PAR OM.PR./PAR T 

01385 

S 

00265 

00023 

CO 1 2 3 

265= 3/2 E SUB 0 

01386 

R 

CO 102 

00022 


( 102 ) =P COUNTER=- 1 I N I ATALLV 

01387 

R 

001C6 

0C023 


( 106 ) =T£RM COUNTER 

01388 

R 

00104 

00052 


( 104)=+00505050+08 

01389 

R 

00105 

00053 


( 105)=+5050505C+08 

01390 

R 

001C8 

00054 


( 108) =-005 05050 + 08 

01391 

• B 

A 

00 1C 7 
00106 

Q01C6 

C0026 

( 106 ) +3 

B 00107 01392 

01393 

A 

00 1C 5 

00105 

CCC27 


01394 

A 

00102 

00 1 C 2 

CC 020 

( 102 ) + 1 =P SUB N-l 

01395 

A 

00110 

0 0 1 C 2 

C0C20 

(110)= P SUB N 

01396 

01397 

M 

00111 

CC1 10 

0CCC7 


01398 

R 

A 

C01G3 

00112 

001L1 

0C11C 

CC020 

(112)= P SUB N+i 

U 1 399 
01400 


K 


4 1 ICO 


LINE 


01400 


PAGE C 3 5 



K 


411C0 


LINE 0 1 AO I 


PAUL G36 


R 00113 00111 

F 00 1 1 A 93101 00102 
F 00115 93101 00110 
F 00116 93101 00112 
C 00019 00115 00121 
D 00117 00115 00110 
S 00118 00 1 1 A 0C116 
D 00118 00118 CC02A 
D 00118 00118 00110 
R 00600 00110 
H 00598 00106 00118 
H 00599 00106 C010A 
H 006C0 00106 00105 
R 00900 00110 
H 00898 00106 00117 
H 00899 00106 00108 
H 009C0 00106 CO 105 
R 01 200 00110 
H 01198 00 1 06 CO 1 1 8 
H 01199 00106 C010A 
H 01200 00106 00105 
R 015C0 00110 
D CO 1 19 00117 00110 
H 01A98 00106 00119 
H 01A99 00106 0010A 
H 015C0 00106 00105 
R 01800 00110 
H 01798 00106 G0115 
H 01799 00106 0010A 
H 01800 00106 00105 
C 00025 00110 OC 107 

• B 00121 

R 00102 00022 
R 00106 00023 
R 0010A 00052 
R 00105 00053 

• B 00122 

A 00106 00106 00026 
A CO 1 CA 0010A OC028 


1 1 A= J SUB N-l 

(115) = J SUB N 

(116) = J SUB N + l 

(117) = J SUB N/P 

(118) = J PR/P 

A 1 SERIES PREL . 

Bi SERIES PREL 
Cl SERIES PREL 
D 1 SER. PREL* 

El SER. PREL. 

102= 1 IN. 

( 10A) =+00505050+08 
( 105) =+50505050+08 

( 106 ) + 3 

PG 1 TU (P+1) G* 


01A01 
01A02 
C1A03 
0 1 AO A 
G 1 AO 5 
01A06 
0 1 AO 7 
0 1 AOS 
01A09 
0 1 A 10 
GLALi 
0 1 A 1 2 
0 1 A 1 3 
0 1 A 1 A 
0 1 A 1 5 
0 1 A 1 6 
0 1 A1 7 
0 1 A 1 8 
0 I A 19 
01A20 
01A21 
G1A22 
01A23 
0 1 A2A 
01A25 
01A26 
01A27 
01A28 
G1A29 
01A30 
01A31 
01A32 

B 00121 G1A33 

01A3A 
0 1 A 3 5 
01A36 
01A37 

b 00122 01A38 

01439 

01440 


K = A11C0 


LINE 01AA0 


PAGE G36 


cn 

cn 



CJl 

o> 


K 


41100 


LINE 01441 


PAGE 037 


A 00102 00102 CO 0 20 


(102)= P SUB N-l 


A 00110 00 1C 2 CO 020 

m com oonc ocon 

R 00103 00111 
A 00112 00110 C C 020 
R 00113 0C111 
F 00114 93101 00 102 
F 00115 93101 CC110 
F 00116 93 1 C 1 CO 1 12 
C 00019 00115 00136 
D 00117 00115 00110 
S 00118 00114 00116 
D 001 18 00118 COO 24 
0 00118 00118 00110 
R 030C0 00110 
H 02998 00106 00118 
H 02599 OC 106 C0104 
H 03000 00106 00105 
M 001C8 00104 C0022 
R 03300 00110 
H 03298 001C6 00117 
H 03299 00106 00108 
H 033C0 00106 C0105 
R 02100 00110 
H 02058 00 1 06 00115 
H 02059 00106 C0104 
H 02 ICO 00106 00105 
C 00025 00110 00122 
* B 00136 

F 90700 90101 00600 
F 006C0 90126 00024 
F 907C0 90101 0CC50 
F 90700 90126 00123 
F 006C0 90111 00600 
F 907C0 9010 1 009C0 
F 00900 90126 C0126 
F 90700 90101 COO 50 
F 90700 90126 00127 
F 060C0 90111 00050 


(110)= P SUB N 

( 112 ) = P SUB N+ 1 

(114) = J SUB N-l 

(115) = J SUB N 

(116) = J SUB im 

(117) = J SUB N/P 

(118) = J PR/P 
(3000)= G 1 SER • TEMP. 

(3300)= hi TEMP. 


A 1 TO OPER. CELLS 

A 1 IN 600 
(900)= SERIES B 1 
1/2 E SUB n SQ. IN SERIES FORM 


01441 

01442 

01443 

01444 

01445 

01446 

01447 

01448 

01449 

01450 

01451 

01452 

01453 

01454 

01455 

01456 

01457 

01458 

01459 

01460 

01461 

01462 

01463 

01464 
G 1465 

01466 

01467 

01468 

01469 

B 00136 01470 

01471 

01472 

01473 

01474 

01475 

01476 

01477 

01478 

01479 

01480 


K 


41100 


LINE 01480 


PAGE 


37 



K 


^ 1 ICO 


LINE G 148 1 


PAGE 038 


F 907C0 90101 01200 
F 907C0 90126 00128 
F C 1 200 90111 C6CC0 
F 907C0 9C1C1 00050 
F 907C0 90126 00129 
F C6000 90111 0C050 
F 907C0 90101 01500 
F 90700 90126 00130 
F 015C0 90111 06C00 
F 907C0 901 C 1 C 1800 
F 90 700 90126 00024 
F 01800 90111 00050 
F 907C0 9C1C1 02 ICO 
F 907C0 90126 CC024 
F 02100 90111 00050 
R 00031 00140 
F 90700 90 1C 1 03000 
F 907C0 90126 CC024 
F 030CO 90111 CC030 
F 907C0 90101 C 3 300 
F 033C0 90126 C0143 
F 90700 90101 01500 
F 02400 90126 00132 

T SERIES M3 

F COOCO 9C001 02400 
F 90700 901C1 C09C0 
F 90700 9C126 00132 
F 90700 90126 00133 
F 02700 90126 C0022 

T SERIES N3 

F 00000 9CCC1 02700 
R 90030 00399 
F C0412 9C071 C0154 
F 907C0 90101 CC050 
F 03600 90126 CG412 
F 0420C 90101 C0C65 
F 04800 90101 CCC65 
F 00414 9C075 00154 
F 90700 901C1 CC050 
F C64C0 90126 C0414 


-2 E SUB C (SERIES Cl 
SERIES Cl 

L/2 E SUB 0 SQ IN SERIES FORM 
1+3/2 E SUB 0 SQ IN SER. FORM 

3/2 E SUB 0 SQ. IN SER. FORM 
( 1500)= SERIES D 1 


( 1800)= SERIES El 


(2100)= SERIES FI 
(140)= -3/2 E PRIME 


(3000)= G 1 
(3300)= HI 

(2400)= M SUB 3 SERIES 


SET SERIES LENGTH TO 200 
SIN 1/2 I SUB 0 

LAMBDA 1 

(4200)= L2 = 0 I N I T . 

(4800)= L3=C INIT. 

COS 1/2 I SUB 0 

LAMBDA J 


01481 

01482 

01483 

01484 

01485 

01486 

01487 

01488 

01489 

01490 

01491 

01492 

01493 

01494 

01495 

01496 

01497 

01498 

01499 

01500 

01501 

01502 

01503 

01504 

01505 

01506 

01507 

01508 

01509 

01510 

01511 

01512 

01513 

01514 

01515 

01516 

01517 

01518 

01519 

01520 


K = 411CC 


LINE 01520 


PAGE 038 


CJl 

-a 



U1 

00 


K 


411C0 


LINE 01521 


PAGE 039 


F 

06C00 

901C1 

00065 

(6000)= NU = 0 I N I T * 


01521 

F 

C66C0 

90101 

00065 

{ 6600 ) = NU/l+NU 


01522 

F 

072C0 

901C1 

C0065 

( 7 200 ) = V* SERIES 


01523 

F 

07800 

901C1 

00065 

(7800)= N SUB 0 DELTA 

Z SERIES 

01524 

F 

084CO 

90101 

C0050 

t 84C 0 ) = H/R SUB 0 


01525 

F 

09CCO 

90101 

CC050 

(9000)= H SUB 0/H 


01526 

F 

C96C0 

90101 

CCC65 

(9600)= CAP. PSI 


01527 

F 

102C0 

9C101 

00065 

(10200= CAP. UPSILON 


01528 

F 

1080C 

90101 

00065 

( 10800)= DELTA SERIES 


01529 

F 

00080 

90101 

C0065 

(80)= C SUB 1 IN SER. 

FORM 

01530 

F 

C0085 

90 1 C 1 

C0065 

(85)= C SUB 2 IN SER. 

FORM 

01531 

F 

907C0 

90 10 1 

CCC40 



01532 


T 1 



SIN G PRIME 


01533 

F 

coooo 

9C001 

CC040 



01534 

F 

12C00 

90121 

OC9CO 

II (SINE OMEGA) 


01535 


T 1 





01536 

F 

COOOO 

9C0C1 

C09C0 



01537 


T 1 



11 SIN OMEGA 


01538 

F 

COOOO 

9C001 

12000 



01539 

F 

90700 

9C101 

0CO35 



01540 

F 

907CC 

90121 

CC600 

I (COS OMEGA) 


01541 


T 1 

I CCS CMEGA 



01542 

F 

COOOO 

9C001 

90700 



01543 

F 

12000 

90116 

12000 

(12000)= III 


01544 


T 1 

III 



01545 

F 

COOOO 

9000 1 

12000 



01546 

F 

90700 

901CI 

C0600 



01547 

F 

12600 

90121 

GC040 

(12600)= I SINE OMEGA 


01548 

F 

907C0 

90101 

CC9C0 



01549 

F 

907C0 

90121 

CC035 



01550 

F 

12600 

90111 

12600 

(12600)= IV SERIES 


01551 


T 1 



IV SERIES 


01552 

F 

OCOCO 

9C001 

12600 

IV SERIES 


01553 

F 

90700 

90101 

03300 



01554 

F 

132C0 

90121 

C0060 



01555 

F 

907C0 

90101 

03000 



01556 

F 

907C0 

90121 

CC 045 



01557 

F 

13200 

90116 

13200 

III PRIME 


01558 


T1 





01559 

F 

COOOO 

9C001 

13200 



01560 


K 


^ 1 ICO 


LINE 01560 


PAGE 


C 39 



LINF 01561 


PAGE 040 


K = 4 1 1 CO 


F 

90700 

901C1 

0 3000 


01561 

F 

13800 

90121 

00060 


01562 

F 

907C0 

90101 

C33C0 


01563 

F 

90700 

90121 

C0045 


01564 

F 

13800 

90111 

13800 

(13800)= IV PRIME 

01565 


T 1 


I 

V PRIME 

01566 

F 

00000 

9C001 

138C0 


01567 

F 

90700 

90101 

C 2 ICO 


01568 

F 

144C0 

90121 

02100 

( 14400)= V PRIME SO 

01569 


T 1 



V PRIME SQUARED 

01570 

F 

00000 

9C001 

144C0 


01571 

F 

90700 

90101 

12CC0 


01572 

F 

15000 

90121 

13200 

(15000)= ( 1 1 1 ) ( 1 1 I PRIME) 

01573 


T 1 

11 

I III PRIME 

01574 

F 

00000 

9C0C1 

15CC0 


01575 

F 

90700 

9C101 

12600 


01576 

F 

15600 

90121 

13800 

( 15600)= ( IV) ( IV PRI ) 

01577 


T 1 


IV I 

V PRIME 

01578 

F 

00000 

90001 

156C0 


01579 

F 

907C0 

9C1C1 

15000 


01580 

F 

90700 

90116 

15600 


01581 


T 1 



III III PRIME - IV IV PRIME 

01582 

F 

oooco 

9C001 

907C0 


01583 

F 

19800 

90121 

14400 

(19800)= VI 

01584 


T 1 



VI 

01585 

F 

cccoo 

9C001 

19800 


G 1 586 

F 

907C0 

90101 

15000 


01587 

F 

90700 

90111 

156C0 


01588 

F 

20400 

90121 

14400 

(20400= VIII 

01589 


T 1 


VIII 


01590 

F 

cooco 

90001 

20400 


01591 

F 

907C0 

90101 

126C0 


01592 

F 

15000 

90121 

13200 

(15000= ( IV) ( II I PR. ) 

01593 


T 1 


IV 

I I I PR 

01594 

F 

00000 

9C001 

1 5000 


01595 

F 

90700 

90101 

12000 


01596 

F 

15600 

90121 

13800 

(15600= I I I. IV PRIME 

01597 


Tl 

III IV 

PRIME 

0159Q 

F 

ococo 

9CCC1 

15600 


01599 

F 

90700 

90101 

15000 


01600 


K = 4 1 IOC LINE C1600 PAGE C*0 


cn 

CD 






K 

= 411C0 

LINE 

01601 

PAGK (HI 


F 

907C0 

9 C 1 1 1 

156C0 





01601 

F 

21C0C 

90121 

144C0 


(2100)= VII 



01602 


T 1 

VII 





01603 

F 

COOCO 

9C001 

21CC0 





01604 

F 

907CC 

9 0 1 C 1 

15C00 





01605 

F 

907G0 

90116 

15600 





01606 

F 

25800 

9C121 

i 4400 


= IX 



01607 


T 1 

IX 






01608 

F 

cocoo 

9CCC1 

25800 





01609 

B 

00135 




MAJCR L CUP 


B 00135 

01610 

A 

00084 

00084 

CCC20 


UP MAJOR LOOP COUNTER 1 


01611 


T ITERATION NUMBER 




01612 

P 

00084 

CCC20 

TA 

1505C3 


SSN 


01613 

P 

00084 

C0020 

PA 

1 5050 3 


SSN 


01614 


T 







01615 

F 

907C0 

90101 

C6000 





01616 

F 

907C0 

90111 

CCC50 


(90700)= 1+NU 



01617 

F 

12000 

90121 

19800 


(12000)= S SUB 1 



01618 

F 

126C0 

90121 

21CC0 


{ 12600)= S SUB 2 



01619 

F 

132C0 

90121 

204C0 


(13200)= S SUB 3 



01620 

F 

13800 

90121 

25800 


(13800)= S SUB 4 



01621 

F 

90700 

90101 

042 CO 





01622 

F 

144CC 

90121 

04200 


{ 14400)= L2 SQ. 



01623 


T 1 


LAMBDA 

2 SC 




01624 

F 

00000 

9CC01 

14400 





01625 

F 

907C0 

90101 

C 3600 





01626 

F 

9C7C0 

90121 

C36C0 


(90700)= LI SQ. 



01627 


T 1 


L 1 SC 




01628 

F 

coooo 

9CCC1 

9C700 





01629 

F 

90700 

9C116 

144C0 





01630 


T 1 


L 

1 SC - 12 SQ 




01631 

F 

COCOO 

9C001 

90700 





01632 

F 

14400 

90121 

120C0 


(14400)= (LI SQ-L2 

SQ) SI 


01633 

F 

90700 

90101 

03600 





01634 

F 

9C700 

90121 

04200 





01635 

F 

90700 

90121 

1 2600 





01636 

F 

15000 

90126 

OC 024 


( 15000= 2 LI L2 S 2 



01637 

F 

9070C 

9 C 1 0 1 

04800 





01638 

F 

15600 

90121 

04800 


(15600)= L 3 SQ. 



01639 

F 

90700 

90101 

0 54 CO 





01640 


K 


4 1 ICC 


L I NE 01640 


PAGE 


041 



K 


4 1 LCO 


LINF 01641 


PAGb C 42 


F 

9C700 

90121 

05400 

L AMBCA 4 SQ. 

01641 

F 

907C0 

90116 

156C0 


01642 

F 

15600 

90121 

13200 

(15600= (14 SC.-L3 SO S3 

C 1643 

F 

90700 

90101 

04800 


01644 

F 

907C0 

90121 

C54C0 


01645 

F 

907C0 

90121 

13800 


01646 

F 

16200 

90126 

00024 

( 16200)= 2 L3 L4 

01647 

F 

90700 

90101 

14400 


01648 

F 

907C0 

90116 

15CC0 


01649 

F 

90700 

90111 

15600 


01650 

F 

21600 

90116 

16200 

(21600)= S 

01651 

F 

90700 

90101 

C6C00 


01652 

F 

90700 

90111 

C0050 


01653 

F 

90700 

90121 

01200 


01654 

F 

22200 

90121 

02 ICO 

(222000)= P 

01655 

F 

90700 

90101 

042C0 


01656 

F 

14400 

90121 

12600 


01657 

F 

90700 

901C1 

03600 


01658 

F 

90700 

90121 

12C00 


01659 

F 

17400 

90116 

144C0 

(17400= SIGMA 1 

01660 

F 

90700 

901C1 

03600 


01661 

F 

14400 

90121 

126C0 


01662 

F 

90700 

90101 

042CO 


01663 

F 

90700 

90121 

12C00 


U 1664 

F 

90700 

90111 

14400 


01665 

F 

18C00 

90126 

00022 

( 18000)= SIGMA 2 

01666 

F 

907C0 

90101 

04800 


01667 

F 

14400 

90121 

1 3200 

L 3 S3 

01668 

F 

90700 

90101 

05400 


01669 

F 

90700 

90121 

13800 


01670 

F 

90700 

90111 

144C0 


01671 

F 

18600 

90126 

00022 

( 18600)= SIGMA 3 

01672 

F 

90700 

90101 

04800 


01673 

F 

14400 

90121 

13000 

L3 S4 

01674 

F 

90700 

90101 

054C0 


01675 

F 

90700 

90121 

132C0 

L4 S3 

01676 

F 

192C0 

90116 

14400 

(19200= SIGMA 4 

01677 

F 

90700 

90101 

06000 


01678 

F 

12000 

90121 

06C00 

( 12000= NU SO. 

01679 

F 

90700 

90101 

12COO 


01680 


K = 4 1 ICC 


LINE 01680 


PAGE C 42 


05 


03 

to 


K 


A 1 ICO 


LINE 01681 


PAGE 043 


F 12600 90121 06000 (12600)= NU CUBED 01681 

F 90700 9C101 126CO 01682 

F 1 3200 90121 C6CC0 (13200)= NU 4TH 01683 

F 907C0 9C101 13200 01684 

F 138C0 90121 C6C00 (13800)= NU 5TH 01685 

F 90700 90 1 C l C6000 01686 

F 907C0 90116 12CC0 01687 

F 90700 90111 126C0 01688 

F 90700 90116 132C0 01689 

F C66CQ 90111 138C0 (6600)= NU/ll+NU) 01690 

F 90700 90101 0C050 01691 

F 11400 90116 C66C0 (11400)= 1/1+NU 01692 

F 90700 90 1 C 1 C0050 01693 

F 12000 90116 C12C0 II- KHO/A) 01694 

F 907C0 9 0 1C 1 08400 01695 

F 90700 90121 084 CO 01696 

F 138C0 90116 COO 50 01697 

F 90700 90101 138C0 01698 

F 907C0 90121 C12C0 01699 

F 12000 90121 12CC0 (12000)= C 01700 

R 00031 00124 (30)= E SUB 0 IN SER. 01701 

F 90700 90 1C 1 00050 01702 

F 907C0 90116 C0030 1- E SUB 0 SQ 01703 

F 12600 90116 012C0 01704 

F 90700 90101 C6600 01705 

F 12600 90121 126CO (12600)= B 01706 

F 90700 90101 00050 01707 

F S07C0 90116 C0C30 01708 

F 90700 90116 C15C0 01709 

F 90700 90116 12600 A-8 01710 

F 907C0 90111 12C00 A-B+C 01711 

F 15600 90126 00153 (156001= K SUB 1 01712 

T1 P SU61 01713 

F C0C00 9CCCI 15600 01714 

F 90 7C0 90101 01800 01715 

F 1 32 CO 90116 00050 SUBTRACT 1 01716 

F 9C7C0 90101 13800 01717 

F 120C0 9C121 1 32CO 01718 

F 907C0 90101 C66C0 01719 

F 126C0 90121 01800 (12600)= b 01720 

K = 4 1 ICC LINE 01720 PAGE C43 



K H Alice 


LINE 01721 


PAGt 044 


F 

90700 

9 0 1 C 1 

CC050 


01721 

F 

90700 

90116 

12600 


01722 

F 

13200 

90116 

12CC0 


01723 

F 

90700 

90101 

13200 


C l 724 

F 

907C0 

90121 

009C0 


01725 

F 

90 700 

90126 

00152 


u 1726 

F 

16200 

90126 

00156 

( 16200 ) - N SUB 1 

01727 


T 1 


n sue l 


01728 

F 

00000 

9000 l 

162C0 


01729 

F 

90700 

90101 

CC900 


01730 

F 

90700 

90121 

01200 


01731 

F 

120C0 

90126 

CO 1 57 


01732 

F 

90700 

9C101 

13800 


01733 

F 

12000 

90121 

12C00 

(12000)= C 

01734 

F 

907C0 

90101 

06600 


01735 

F 

126C0 

90121 

00900 

(12600)= B 

01736 

F 

907CC 

90101 

C06C0 


01737 

F 

90700 

90126 

CC024 


01738 

V 

00031 

C0CC7 

C0026 

30= 3 E SUB 0 IN SER 

01739 

F 

132C0 

90111 

COO 30 


01740 

F 

SO 700 

90156 

132C0 


U 1 74 1 

F 

90700 

90126 

00156 

(90700)= A 

01742 

F 

90700 

90116 

12600 


01743 

F 

90700 

90111 

12C00 


01744 

F 

24600 

90126 

CO 1 52 

( 246GC ) = 1* SUB 2 

01745 


T 1 


M SUB 2 


01746 

F 

cooco 

9CCC1 

24600 


01747 

F 

90 700 

90151 

00600 

CIFF. WITH RES. TC GAMMA 

01748 

F 

907C0 

90121 

C09CO 


01749 

F 

90700 

90126 

00156 


01750 

F 

12C0C 

90 1 26 

COCO 7 


01751 

F 

907C0 

90101 

13800 

(H/H SUB 0 S ) S U • 

0 1 75 2 

F 

12000 

90121 

12C00 

(12000= C 

01753 

F 

12600 

90151 

OC9CO 


01754 

F 

90700 

90 1 C 1 

C6600 


01755 

F 

90700 

90121 

126C0 


01756 

F 

12600 

90126 

CC402 

(126CC ) = B 

01757 

R 

C0031 

00158 



01758 

F 

907C0 

90101 

CC030 


01759 

F 

132CC 

90111 

00600 

(13200)= A 

u 1 760 


K h AilCC 


LINF 01760 


PM, l* C44 


as 

co 


os 


K 


A11CC 


LINF 01761 
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F 

907C0 

90101 

126CG 


01761 

F 

907CC 

9011 1 

12CC0 


01762 

F 

907C0 

9C1L6 

132CC 


01763 

F 

907CC 

90126 

CO l 52 


01 76 A 

F 

252C0 

90126 

00156 

(25200)= N SUB 2 

01765 

F 

907CC 

90101 

222CC 


01766 

F 

907CC 

9C121 

222 CO 


01767 

F 

1 A A 00 

90101 

9C700 

STORE P SO. IN 1AAOO 

01768 

F 

12000 

9C126 

CC021 

1/2 P SO. 

01769 

F 

90 7 C 0 

90101 

216C0 


01770 

F 

907C0 

90121 

216C0 


01771 

F 

150C0 

9C101 

90700 

STORE S SQ. IN 15000 

01772 


T 1 

s 

S CL AR EC 


01773 

F 

occco 

9C0C1 

15CC0 


0177A 

F 

90700 

90126 

CO 1 7 1 

3/2 S SO. 

01775 

F 

90700 

90116 

1 2000 

3/2 S SO. -1/2 P SQ. 

01776 

F 

9070C 

90121 

02100 


G 1 777 


T 1 


CAP CMCGA 1 WITHOUT MUL FACTOR 

01778 

F 

coocc 

9C0C1 

9C7C0 C 


01779 

I 

00172 

+56909150-02 

OMEGA 1 MULTIPLIER 

01780 

R 

90016 

00AC1 



01781 

F 

12C00 

90126 

C 0 1 72 

( 12000)= CAP. OMEGA 1 

01782 

R 

9C016 

00A91 


CRIT TEN TO MTNUS A 

01783 

F 

907C0 

901C1 

1 A A CO 


0178A 

F 

907C0 

90121 

21600 

SP SO. 

01785 

F 

12600 

90126 

C0C29 

“ 3/2 SP SQ 

01786 

F 

90700 

90101 

15C00 


01787 

F 

90700 

90121 

21600 


01788 

F 

90 7 CO 

90126 

00173 


01789 

F 

907C0 

90111 

12600 


01790 

F 

90 7C0 

9C121 

C2100 


01791 

I 

00175 

+1AC5A000-0A 

OMEGA 2 MULTIPLIER 

01792 

R 

9C016 

00A01 


CRIT. TEN TO- 8 

01793 

F 

126C0 

90126 

CC175 

(12600)= TEMP. CAP. OMEGA 2 

0 1 79 A 

R 

90016 

00A92 


CRIT TEN TO MINUS 2 

01795 

F 

907CO 

9C1C1 

14400 


01796 

F 

9C7CC 

90121 

144C0 


01797 

F 

13200 

90126 

00178 

3/8 P ATH 

01798 

F 

90700 

9C1C1 

1440C 


01799 

F 

907C0 

90121 

15COO 


01800 


K 
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K = 
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F 

13800 

90126 

CO 1 77 


15/4 S SQ P SQ 



01801 

F 

907CC 

90101 

15C00 





01802 

F 

907C0 

90121 

15CC0 





0 1 HO 3 

F 

90 7 CO 

90126 

CO 1 76 


35/8 S 4Th. 



01804 

F 

907CC 

9C116 

13800 





01805 

F 

907CC 

90111 

132C0 





01806 

F 

907CO 

90121 

02100 





01807 

I 

00180 

+36C0CCCC-C7 


OMEGA 3 MULTIPLIER 



01808 

R 

90016 

0C4C1 



CRIT. TEN TG-8 



G 1809 

F 

132C0 

90126 

00180 


(13200)= OMEGA 3 



01810 

F 

90700 

90101 

12C00 





01811 

F 

90700 

90111 

12600 





01812 

F 

22800 

90111 

13200 


(22800)= OMEGA 



01813 


T 1 

CMEG A 





01814 

F 

COOOO 

90001 

22800 





01815 

F 

234C0 

90151 

22800 


(23400)= PAR. OMEGA/PAR GAMMA 



01816 

F 

907C0 

90101 

12000 





01817 

F 

12000 

90126 

C0024 





01818 

F 

907C0 

90101 

12600 





01819 

F 

126C0 

90126 

CC026 





01820 

F 

907C0 

90101 

13200 





01821 

F 

90700 

90126 

00181 





01822 

F 

907C0 

90111 

12C00 





01823 

F 

240C0 

90111 

12600 





01824 

R 

90016 

00491 



CRIT TEN TO MINUS 4 



01825 

F 

907C0 

90101 

144C0 


P SC TO OP CELLS 



01826 

F 

9C7C0 

90121 

21600 


SP SO. 



01827 

F 

12000 

90126 

00182 


( 12000)= 15/2 (S P SO. ) 



01828 

F 

90700 

90101 

15000 





01829 

F 

90700 

90121 

21600 





U 1830 

F 

90700 

90126 

00183 


35/2 S CUBED 



01831 

F 

907C0 

90116 

12C00 





01832 

F 

90700 

90121 

02100 





01833 

R 

90016 

004C1 



CRIT. TEN TO- 8 



01834 

F 

12C00 

90126 

0C180 


( 12000)= C 



01835 

R 

90016 

0005 5 



CHANGE CRITERION 



01836 

F 

90700 

90101 

144C0 





01837 

F 

12600 

90126 

00029 


— 3/2 P SO. 



01838 

F 

90700 

90101 

15C00 





01839 

F 

90700 

90126 

00182 


{ 15/2) S SQ. 



01840 




K = 

4 1 ICO 

LING 01840 
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05 

CJ1 



05 

05 


K 


^ 1 100 
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90111 
90121 
G04C l 
90126 
CG055 
9C1C1 
90126 
90121 
0 C 4 0 1 
90126 
90111 
90111 
90 1C 1 
90121 
901C1 
90121 
90111 


12600 

02100 

00175 

21600 

0CC26 

02100 


90 00 1 
90101 
90121 
90 1C 1 
90121 
90111 

9C001 
90101 
90121 
90 1C l 
90121 
90111 
9C1C1 
9C9C1 
90101 


9C0C1 
9 C 1 0 1 
9 C 90 1 
90101 


CRIT. TEN TO— 8 
112600)= B 

CHANGE CRITERION 

35 

CRIT* TEN TO— 8 
(90700)= A 

( 21600 ) = ( A/R ) (A PR/R PR)(P UM./PS) 
{ 16200 ) = T SUB l 


(24600)= T SUB 2 

(22200)= T SUB 3 

( 16200)= F SUB 1 TEMP. 

(24600)= F SUB 2 TEMP 


01841 

01842 

01843 

01844 
01645 

01846 

01847 

01848 

01849 

01850 

01851 

01852 

01853 

01854 

01855 

01856 

01857 

01858 

01859 

01860 
01861 
01862 

01863 

01864 

01865 

01866 

01867 

01868 

01869 

01870 

01871 

01872 

01873 

01874 

01875 

01876 

01877 

01878 

01879 

01880 
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F 

coooo 

9C001 

24600 




01881 

F 

907C0 

9C1C1 

22200 




01882 

F 

00000 

90 90 1 

CCCOO 




01883 

F 

22200 

90101 

9C7C0 


(22200= F SUB 3 TEMP 


01884 

R 

0031 1 

00015 



311= N SUB C Y PREVlUUS 


u 1 86 5 

R 

00312 

CC016 



312= N SUB 0 ALPHA PREVIOUS 


01886 

R 

00313 

CC017 



313= N SUB C ETA PREVIOUS 


01887 

F 

90700 

90101 

246C0 




01886 

F 

C0230 

90131 

CC052 


(231)= CONSTANT TERM F2 


01889 

F 

90700 

90 1C 1 

C84C0 




01890 

F 

90700 

90126 

00192 




01891 

F 

907C0 

90126 

CC024 




u 1 692 

F 

907C0 

90111 

1C2C0 


ACD UPSILCN 


01893 

F 

00235 

90131 

00052 


(236)= CONST. TERM 


01894 

D 

00015 

00231 

00236 


( 15)= N SUB 0 Y 


01695 

F 

907C0 

90101 

00050 




01896 

F 

907C0 

90126 

COO 15 




01897 


T 1 




N SUB 0 Y 


01898 

F 

00000 

9C001 

907C0 




U 1 899 

F 

90700 

90101 

C96C0 




01900 

F 

907C0 

90126 

COO 1 5 




01901 


T 1 


N SUB C 

Y( ) 



01902 

F 

00000 

9C001 

907C0 0 




01903 

F 

16200 

90111 

16200 


( 16200)= D UPSILON/OT 


01904 


T 1 

D UPSILCN/CT 




01905 

F 

00000 

9C001 

16200 




01906 

S 

00193 

00023 

00015 


( 193)= - ( N SUB 0) ( Y) 


01907 

F 

90700 

90101 

C84C0 




01908 

F 

907C0 

90126 

C0C24 




01909 

F 

90700 

90 1 26 

CO 192 




01910 

F 

907CC 

90111 

102C0 


ACC UPSILCN 


U 1 9 1 1 

F 

90700 

90126 

00193 




01912 

F 

24600 

90111 

246C0 


(24600)= 0 PSI/OT 


01913 

F 

90700 

90 1C 1 

21600 




01914 

F 

907G0 

90121 

08400 




0 1 9 L 5 

F 

21600 

90126 

00196 


(21600)= G I MULTIPLIER 


01916 

F 

907C0 

90 1 C 1 

03600 




01917 

F 

12000 

90121 

04800 


LI L3 


01918 

F 

90700 

90101 

04200 




01919 

F 

907C0 

90121 

C54C0 


L 2 L 4 


01920 
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05 


05 

CO 


<» 1 1 r. 


L INF 01^21 


p.v.t 


',49 


F 

9C7C0 90116 

12C0C 


w 1921 

F 

1 2 0 CO 9C121 

1 9 2 C 0 

( 12000 ) = u 

J1922 

F 

907C0 90101 

C 3 6 0 0 


0192 3 

F 

12600 *90121 

0 5400 

LI L 4 

01924 

F 

907C0 90101 

04200 


0 1 9 2 o 

F 

90700 90121 

04 600 

L 2 L 3 

ol 926 

F 

90700 90111 

12600 


0 1927 

F 

126C0 90121 

18600 

(12600)= B 

u!92ri 

F 

907C0 90101 

04800 


01929 

F 

1 3200 90121 

04800 


01930 

F 

907C0 9C1C1 

05400 


01931 

F 

9070C 90121 

054C0 


01932 

F 

90 70 0 9011 1 

1 3 2 CO 

L 3 SQ.+L4 SO. 

G19 3 3 

F 

907CC 9C121 

18C00 


01934 

F 

907C0 90116 

12600 


01935 

F 

90700 90116 

1 2 C CO 

A-B-C 

01936 

F 

22800 90121 

21600 

(22800)= G I 

01937 

F 

90700 901C1 

03600 


01938 

F 

12000 90 1 2 1 

C 5400 

LI L4 

01939 

F 

907CC 90101 

C4200 


01940 

F 

90700 90121 

04800 

L 2 L 3 

01941 

F 

907C0 90111 

12C00 


01942 

F 

120C0 90121 

19200 

( 12000)= C 

01943 

F 

90700 90101 

03600 


01944 

F 

12600 90121 

04800 

LI L3 

01945 

F 

90700 90101 

C4200 


01946 

F 

90700 90121 

0 5400 

L2 L4 

01947 

F 

907C0 90116 

12600 


01948 

F 

12600 90121 

1 8600 

( 12600)= B 

01949 

F 

90700 90 10 1 

054C0 


01950 

F 

13200 90121 

054C0 

L4 SQ 

01951 

F 

907C0 90101 

04800 


01952 

F 

907C0 90121 

04800 

L 3 SQ 

01953 

F 

90700 90111 

13200 

L4 SQ+L3 SQ. 

01954 

F 

90700 90121 

17400 


01955 

F 

907CO 90126 

00022 

YUL. BY -1 

01956 

F 

90 700 90116 

126C0 


01957 

F 

90700 90111 

1 2000 

-A-B+C 

01958 

F 

23400 90121 

21600 

(23400)= G2 

01959 

F 

907C0 90101 

C3600 


01960 


K 


A11CC 


LINE 01960 


PAGE 049 


K 


A11CC 


L l NF 01961 
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F 

120C0 

90121 

OA800 

LI L 3 


01961 

F 

907C0 

90101 

OA200 



01962 

F 

90700 

90121 

C 5 A 0 0 

L2 LA 


01963 

F 

907C0 

90116 

12C00 



0196A 

F 

12CC0 

90121 

18C00 

( 12000 = 

C 

01965 

F 

907C0 

90101 

03600 



01966 

F 

126C0 

90121 

C5AOO 

LI LA 


01967 

F 

907C0 

90101 

0A20O 



01968 

F 

907CC 

90121 

OA 800 



01969 

F 

907C0 

90111 

126C0 



01970 

F 

12600 

9C121 

17A00 

( 12600 = 

B 

01971 

F 

907C0 

90101 

03600 



01972 

F 

13200 

90121 

03600 

LI SO. 


01973 

F 

90700 

90101 

OA2CO 



0197A 

F 

90700 

90121 

0A200 

L2 SQ. 


01975 

F 

90700 

90111 

13200 



01976 

F 

90700 

90121 

152C0 



01977 

F 

907C0 

90126 

0C022 



01978 

F 

90700 

90111 

12600 



01979 

F 

90700 

90111 

1 2000 

-A+B+C 


01980 

F 

2AC00 

90121 

21600 

{ 2 AOOO ) = 

G 3 

01981 


T 1 


G 3 



01982 

F 

00000 

9C001 

2A000 



01983 

F 

907C0 

90101 

03600 



0198A 

F 

12COO 

90121 

05AC0 

LI LA 


01985 

F 

907C0 

90 1C 1 

CA2C0 



01986 

F 

907C0 

90121 

0A800 

L2 L 3 


01987 

F 

90700 

90111 

12COO 

L 2 L3 + L1 

LA 

01988 

F 

12CCC 

90121 

1 8000 

( 12000 = 

C 

01989 

F 

90700 

90101 

C 3600 



01990 

F 

126C0 

90121 

OA SCO 

LI L3 


01991 

F 

90700 

90101 

OA200 



01992 

F 

907C0 

90121 

C5AC0 



01993 

F 

907C0 

90116 

12600 



0199A 

F 

12600 

90121 

17AOO 

( 12600 = 

B 

01995 

F 

907C0 

90101 

03600 



01996 

F 

13200 

90121 

C3600 

LI SQ. 


01997 

F 

90700 

90 1 C 1 

CA200 



01998 

F 

90700 

90121 

CA200 

L2 SQ. 


01999 

F 

90700 

90111 

13200 



02000 


K = A11C0 


LINE 02000 
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CT> 

CD 


-J 

o 


K 


A 1 ICO 


LINE 02C01 


PAGE 051 


F 907C0 90121 18600 02001 

F 907C0 9C111 12600 02002 

F 90700 90116 12C00 02003 

F 192CC 90121 21600 (19200)= G4 02004 

F 90700 9C101 228C0 02005 

F COOOO 90901 COCCO 02006 

F 1 7400 90101 9C7C0 (17400)= H SUB 1 TEMP. 02007 

F 90700 9C101 23400 02008 

F COOOO 90901 OOCOO 02009 

F 1 8000 90101 9C7C0 (18000)= H SUB 2 TEMP 02010 

F 90700 90101 24CC0 02011 

F 00000 9G9CI COOOO 02012 

F 18600 90101 90700 (18600)= H SUB 3 TEMP. 02013 

F 90700 9C101 192C0 02014 

F COCCO 9C9C1 COOOO 02015 

F 19200 90101 9C700 (19200)= H SUB 4 TEMP. 02016 

F 90700 90101 18000 02017 

F 00240 90131 00052 (241)= CONST. IN H SUB 2 SER. 02018 

F 90700 90101 C3600 02019 

F 00245 90131 C0052 (246)= CGNST . IN LAMBDA 1 02020 

D 00016 00241 00246 (16)= N SUB 0 ALPHA 02021 

F 90700 90101 0C050 02022 

F 907C0 90126 00016 02023 

T 1 N SUB 0 ALPHA 02024 

F 00000 9000 1 907C0 02025 

F 90700 901C1 18600 02026 

F 00250 90131 C0052 (251)= CONST . IN H3 02027 

F 90700 90101 05400 02028 

F 00255 90131 00052 (256)= CONST. IN LAMBDA 4 02029 

0 C0C17 0025 L 00256 02030 

S 00017 00023 COO 1 7 <17)= N SUB 0 ETA 02031 

F 90700 90101 00050 02032 

F 907C0 90126 00017 02033 

T l N SUB 0 ETA 02034 

F COOOO 9000 1 9C700 02035 

F 90700 90 1C 1 05400 02036 

F 12CC0 90121 0C075 L4 SIN THETA 02037 

F 907C0 901C1 048C0 02038 

F 90700 90 1 2 1 CC070 L3 COS THETA 02039 

F 90700 9C111 12000 02040 


K 


4 1 ICO 


LINE 02040 
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K 

= 4 1 ICC 


LINE 02041 

F 

12000 

90126 

00199 





F 

90700 

90101 

04200 





F 

90700 

90126 

COO 16 



N SUB 0 

ALPHA L2 

F 

90700 

90111 

17400 





F 

17400 

90116 

12000 



(17400) 

= (DL1/DT) 

S 

00190 

0C023 

00016 



(190)= 

-N SUB 0 ALPHA 

F 

90700 

901C1 

048C0 





F 

12000 

90121 

CC075 



L3 SIN 

THETA 


T 1 


L 

3 SIN 

THETA 



F 

coooo 

90001 

12C00 





F 

90700 

90101 

05400 





F 

90700 

90121 

CCC70 



L4 COS 

THETA 

F 

90700 

90116 

12C00 





F 

12000 

90126 

00199 






T 1 

L3 

l + L4 

TIMES 

ZERO 



F 

00000 

90001 

12000 





F 

90700 

90101 

03600 





F 

90700 

90126 

00190 



-N SUB 

0 ALPHA LI 

F 

90700 

90111 

18000 



PLUS H2 


F 

18000 

90111 

12C00 



( 18000) 

= DL2/DT 

S 

00189 

00023 

COO 1 7 



(189)= 

-N SUB 0 ETA 

F 

90700 

90101 

036C0 





F 

12000 

90121 

CCC70 



LI COS 

THETA 

F 

90700 

90101 

04200 





F 

90700 

90121 

00075 



L2 SIN 

THETA 

F 

90 700 

90111 

12CC0 





F 

12000 

90126 

00199 





F 

90700 

90101 

C54C0 





F 

907C0 

90126 

COO 1 7 





F 

907CC 

90111 

18600 





F 

18600 

90111 

12COO 



(18600) 

= DL3/0T 

F 

90700 

9010 1 

04200 





F 

12000 

90121 

00070 



L2 COS 

THETA 

F 

90700 

90101 

03600 





F 

90700 

90121 

0C075 





F 

90700 

90116 

12000 





F 

12000 

90126 

00199 





F 

907C0 

90101 

04800 





F 

907C0 

90126 

00189 





F 

907C0 

90111 

19200 






K 
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02041 

02042 

02043 

02044 

02045 

02046 

02047 
G204B 

02049 

02050 

02051 
U2052 

02053 

02054 

02055 

02056 

02057 
02056 
U2059 
02060 
02061 
02062 

02063 

02064 

02065 

02066 

02067 

02068 

02069 

02070 

02071 

02072 

02073 
u 207 4 

02075 

02076 
02G77 

02078 

02079 

02080 
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K = 411CC 

LINF 02081 

PACE 053 


F 

192C0 

90111 

12C00 

< 19200)= U L4/DT 


02081 

A 

00260 

00015 

CG016 



02082 

S 

00260 

C0260 

CCC17 



02083 

0 

00261 

00260 

GC0C8 

(261)= Y+ALPHA-ETA 


02084 

A 

00262 

00016 

COO 1 8 



02085 

A 

00262 

00262 

COO 1 7 



02086 

D 

00263 

00262 

CCC08 

( 263)= Y PR . + ALPHA + E T A 


02087 

R 

90521 

C0008 


N SUB 0 TO INT. ROUTINE 


02088 

R 

90522 

0C012 


N PRIME TO INT. ROUTINE 


02089 

R 

90523 

C0261 


Y+ALPHA-ETA TO INT. ROUTINE 


02090 

R 

90524 

00263 


V PR.+ALPHA-ETA TO INT. ROUTINE 


02091 

F 

16200 

90141 

162C0 

(16200)= BRACKET UPSILLJN 


02092 

F 

24600 

90141 

24600 

(24600)= BRACKET PSI 


02093 

F 

222C0 

90141 

22200 

(22200)= OR. 1+SUB 0/H 


02094 

F 

907C0 

90101 

24600 



02095 

F 

C96C0 

90101 

9C7C0 



02096 


T I 


PSI 



02097 

F 

00000 

90001 

09600 



02098 

F 

C36C0 

90141 

174C0 

(03600)= LI BRACKET 


02099 

F 

042G0 

90141 

18COO 



02100 

F 

048C0 

90141 

18600 



02101 

F 

05400 

90L41 

19200 

(05400)= L4 BRACKET 


02102 

F 

907CC 

90101 

10800 



02103 

F 

12000 

90121 

10800 

( 12000)= DELTA SQ. 


02104 

F 

12600 

90121 

12000 

DELTA CUBED 


02105 

F 

1 3200 

90121 

12600 

DELTA 4TH 


02106 

F 

13Q00 

90121 

1 3200 

DELTA 5 Th 


02107 

F 

90700 

90101 

12COO 



02108 

F 

90700 

90116 

12600 



02109 

F 

90700 

90111 

13200 



02110 

F 

9070C 

90116 

13800 



02111 

F 

12C00 

90126 

C 0024 

(1200)= 2 ( D 2-D 3 + D4-D 5 ) 


02112 

F 

90700 

90101 

162G0 



02113 

F 

12600 

90126 

00123 

(12600)= -3/2 E SUB 0 BR. UPSILON 


02114 

F 

907C0 

90101 

222C0 



02115 

F 

132C0 

90126 

COO 26 

(13200)= 3 BR. (H SUB 0/H) 


02116 

F 

90700 

90101 

1 2000 



02117 

F 

907C0 

90111 

12600 



02118 

F 

23400 

90116 

132C0 

123400)= BRACKET CHI 


02119 

F 

90700 

90101 

CC600 



02120 


K 


411CQ 


LINE 02120 


PAGE 053 



K 


AllCC 


LINE 02121 


PAGE 054 


F CC0C0 9C9C3 CCOCO 
F 18000 90101 9C7C0 
F 90TC0 90101 0C9C0 
F COCCC 9C9C3 CCCCO 
F 18600 90101 9C7Q0 
F 907C0 90101 CISCO 
F OOOGO 90903 OGOOO 
F 192C0 90101 90700 
R 00031 00265 
F 90700 90146 00600 
F 12000 90111 00030 
F 90700 90101 16200 
F 12000 90121 12CC0 
F 12600 90146 OC9CO 
F 90700 90101 09600 
F 90700 90121 12600 
F 90700 90111 23400 
F 24600 90111 12000 

T 1 BR to SUB C 

F COOOO 9C001 24600 
F 90700 90101 06000 
F 12000 90121 06000 
F 90700 90101 12C00 
F 12600 90121 12000 
F 90700 90101 12600 
F 13200 90121 12000 
F 90700 90101 126C0 
F 90700 90121 126C0 
F 90700 90111 132C0 
F 90700 90111 12600 
F 120C0 90111 12COO 
F 90700 90101 CC050 
F 90700 90111 C7200 
F 90700 90121 12000 
F 120C0 90126 00008 
0 00266 00193 00155 
F 90700 90101 19 200 
F 12600 90126 00266 
F 907C0 90 1C 1 18600 
F 90700 90126 00008 

K = 41100 


( 18001 s Q SUB 1 

( 18600)= U SUB 2 

( 19200)= C SUB 3 
(31)= 3/2 E SUB 0 
BAR RHO/A CCS PHI 

(12000)= B 

BAR RHO/A SIN PHI 

A + C 

(24600= BR. to SUB 0 

(12000)= NU SQ. 

(12600= NU FOURTH 
( 13200= NU SIXTH 
(90700= NU EIGHT 

(12000= NU/l-NU SG 
( 12000 = L 

(266)= -N SUB 0 Y/SQ.RT.ll-fc 
(12600= -C 

LINE 02160 


G2121 

02122 

02123 

02124 

02125 

02126 

02127 

02128 

02129 

02130 

02131 

02132 

02133 

02134 

02135 

02136 

02137 

02138 

02139 

02140 

02141 

02142 

02143 

02144 

02145 

02146 

02147 

02148 

02149 

02150 

02151 

02152 

02153 
U2154 
02155 

0 SQ 02156 

02157 

02150 

02159 

02160 

PAGE 054 


-3 

00 


<1 


K 


41100 


LINE 02161 


PAGE 055 


E 13200 90121 C 9600 
F 907G0 90101 162CO 
F 90700 90111 C0085 
F 90 700 90126 C0CO8 
F 907C0 90121 18000 
F 90700 90111 13200 
F 90700 90111 12600 
F 12C00 90111 12C00 
F 90700 90 1C 1 24600 
F 907CC 90126 CCC08 
F 12600 90111 12000 
F 907C0 90146 01500 
F 13200 90126 00266 
F 90700 90101 12600 
F 90700 90111 13200 
F 00270 90131 00052 
F C0275 90131 00090 
F 907C0 90101 COO 50 
F 90700 90126 00265 
F 13800 90146 00600 
F 90700 90111 13800 
F C0280 90131 00C90 
M 00286 00276 00007 
M 00287 00281 CC008 
P 00288 00287 00024 
D 00289 00286 C0288 
M 00290 CC0C8 00026 
D 00291 00271 00290 
A C0081 00291 00289 
D 00292 00288 0C024 
0 00293 00276 00292 
S 00086 0C023 00293 
F 90700 90146 00600 
F 90700 90111 00030 
F 90700 90126 00008 
F 138C0 90126 00086 
F 907C0 90101 00085 
F 14400 9C126 00123 
F 907C0 90101 00080 
F 907C0 90126 00267 

K = 4 1 1 CO 


(13200= B 


( N SUB 0 C2 + BR . UPSILON) 


(12000= A+B-C+D+E=BIG B 


( 12600)= N SUB 0 BR W+B 
BAR (RHO/A) SQ. 

(13200)= -C 


(271)= A 1 
(276)= A2 


BAR RHO/A COS PHI 

(281)= BETA 
(286)= A2 E SUB 0 

(288) = 2 BETA N SUB 0 

(289) = A2 F SUB 0/2 BETA N SUB 

(290) = 3 N SUB 0 

(291) = Al/3 N SUB 0 
(81)= C SUB 1 


(86)= C SUB 2 
BAR RHU/A CCS PHI 


(13800)= B 

(14400)= -3/2 E SUB 0 


LINE 02200 


02161 

02162 

02163 

02164 

02165 

02166 

02167 

02168 

02169 

02170 

02171 

02172 
* 02173 

02174 

02175 

02176 

02177 

02178 

02179 

02180 
02181 
02182 

02183 

02184 

02185 

0 02186 

02187 

02188 

02189 

02190 

02191 

02192 

02193 

02194 

02195 

02196 

02197 

02198 

02199 

02200 

PAGE 055 



K 


A 1 ICO 


LINE C2201 


PAGE 


C 56 


F 

<30700 

90111 

14400 


02201 

F 

90700 

90126 

C0008 

(90700)= A 

02202 

F 

90700 

90111 

13800 


02203 

F 

907C0 

90111 

13200 

A + B-C 

02204 

F 

90700 

90111 

12600 

(90700)= UN/DELTA Z 

02205 


T1 


CN/DELTA -Z 


02206 

F 

00000 

90001 

90700 


02207 

F 

07800 

90141 

90700 

(07800= \i SUB 0 CELIA Z 

02208 

F 

90700 

90101 

07800 


02209 


Tl 

N SUB C DELTA 2 


02210 

F 

00000 

9C001 

90700 


0221 1 

F 

004 70 

90131 

00460 


02212 

F 

00475 

90131 

00462 


02213 

F 

00480 

90131 

C0464 


02214 

F 

00485 

90131 

00466 


02215 

F 

90700 

90101 

00470 


02216 

F 

907C0 

90111 

00475 


02217 

F 

90700 

90111 

00480 


02218 

F 

12000 

90111 

C0485 


02219 


Tl 


SUBTRACT SERIES 


02220 

F 

00000 

90001 

12C00 


02221 

F 

9C700 

90101 

07800 


02222 

F 

07800 

90116 

12000 

N SUB 0 DELTA 2 

02223 

F 

90700 

90101 

07800 


02224 

F 

07800 

90126 

00020 


02225 


Tl 


N SUB 0 DELTA Z 


02226 

F 

00000 

9C001 

07800 


02227 

F 

90700 

90101 

00080 


02228 

F 

10800 

90111 

22200 

(10800)= DELTA SERIES 

02229 

F 

90700 

90101 

00050 


02230 

F 

09000 

90111 

10800 

(09000)= H SUB 0/H 

02231 


Tl 


H SUB 0/H 


02232 

F 

oooco 

90001 

C9CC0 


02233 

F 

90700 

90101 

16200 


02234 

F 

102C0 

90111 

00085 

(10200)= UPSILCN 

02235 


Tl 


UPSILCN 


02236 

F 

oocoo 

9C001 

1 C 200 


02237 

F 

90700 

90 1C 1 

10800 

1 

02238 

F 

120C0 

90121 

10800 

( 12000)= DELTA' SQ 

02239 

F 

12600 

90121 

10800 

(12600)= DELTA CUBED 

02240 




K = 4 1 ICO 

LINE 02240 

PAGE 056 


CJl 






K = 4 1 ICC 

LINF C2241 

PAGE C 5 7 


F 

13200 

90121 

10800 

(13200)= CEL T A 4 T H 


02241 

F 

138C0 

90121 

1 C 800 

(13800= CFLTA 5 TH 


02242 

F 

90700 

90101 

00050 



02243 

F 

907C0 

90116 

10800 

( l-D) 


02244 

F 

90700 

90111 

12000 

(1-D+C2) 


02245 

F 

907C0 

90116 

126C0 

( 1-D+D2+D3 ) 


02246 

F 

90700 

90111 

13200 

( 1-D+D2-03+D4) 


02247 

F 

084C0 

90116 

13800 

(8400)= NEW H/H SUB 0 


02248 

F 

907C0 

90101 

12000 



02249 

F 

90700 

90116 

12600 

U2-D3 


02250 

F 

907C0 

90111 

132C0 



02251 

F 

907C0 

90116 

13800 



02252 

F 

12000 

90126 

C0024 

( 12000= 2 ( C2-C3+C4-G5 ) 


02253 

F 

907C0 

90101 

10200 



02254 

F 

12600 

90126 

CO 1 2 3 

(12600)= -3/2 E SUB 0 UPSILON 


02255 

F 

90700 

90101 

10800 



02256 

F 

13200 

90126 

00026 

(13200= +3 DELTA 


02257 

F 

90700 

90101 

12000 



02258 

F 

907C0 

90111 

12600 



02259 

F 

23400 

90116 

13200 

(23400= CH 1 


02260 


T 1 


CHI 



02261 

F 

ccooo 

9C001 

23400 



02262 

F 

90700 

90146 

00600 

BAR RHO/A CCS PHI 


02263 

F 

90700 

90111 

18000 



02264 

F 

90700 

90111 

00030 

R BAR/A CUS+ BAR+3/2 E SUB 0 


02265 

F 

12000 

90121 

1C 200 

(12000= B 


02266 

F 

90700 

90146 

C09C0 



02267 

F 

90700 

90111 

18600 



02268 

F 

90700 

90121 

09600 



02269 

F 

90700 

90111 

23400 



02270 

F 

07200 

90111 

12000 

(07200= W BAR 


02271 


T 1 


W BAR 



02272 

F 

00000 

9000 1 

C72C0 



02273 

F 

907C0 

90101 

10800 



02274 

F 

90700 

90111 

C72C0 



02275 

F 

90700 

90126 

00021 

1/2 (DELTA+W BAR) 


02276 

F 

12000 

90121 

C6000 

1/2 (DELTA+W BAR* NU 


02277 

F 

90700 

90101 

10800 



02278 

F 

90700 

90116 

C7200 



02279 

F 

90700 

90126 

00021 



02280 


K 


411CC 


LINE 02 2 BO 


PAGE 


057 



K 


4 1 ICC 


LINT 02281 


PAGE 058 


F 

0600C 

9C116 

12000 

{ 6C00 ) 

= NU 


F 

907C0 

90101 

060C0 




F 

0044C 

90131 

C0430 




F 

C0445 

90131 

C0432 




F 

00450 

90131 

00434 




F 

C0455 

90131 

00436 




F 

90700 

90116 

00440 




F 

90700 

90116 

0044 5 




F 

90700 

90116 

00450 




F 

90700 

90116 

00455 




F 

90700 

90126 

CC020 




F 

06000 

90101 

9C7C0 





T 1 

NU SERIES 




F 

oooco 

9C001 

06000 




F 

907C0 

90101 

C42C0 





T 1 


L AMBC A 

2 BRACKET 



F 

00000 

9C001 

90700 




F 

9C7C0 

90116 

04 800 

L2-L3 




T 1 


L2-L3 




F 

ocooo 

9C001 

90 700 




F 

12000 

9C121 

90700 

U2-L3 

) SC. 



T1 


(LI- L 2 ) 

SC 



F 

00000 

90001 

12COO 




F 

90700 

90101 

C 3600 




F 

907C0 

9C111 

05400 

L1+L4 



F 

90700 

90 1 2 1 

9C700 

( L1+L4 

) SO. 


F 

90700 

90111 

12000 




F 

00300 

90131 

CCG52 

(301 ) = 

11 


F 

90700 

9C101 

C4200 




F 

907C0 

90111 

04800 

L2 + L3 



F 

12000 

90121 

9C7C0 




F 

907C0 

90 1 C 1 

C36C0 




F 

907C0 

90116 

05400 




F 

90700 

90121 

9C7CC 




F 

9C7C0 

9011 1 

12C00 




F 

00305 

90131 

COO 52 

(306)= 

12 


F 

CO 3 1 5 

90071 

00154 

(315)= 

SIN 

1/2 

F 

CO 3 1 6 

90075 

00154 

(316)= 

COS 

1/2 

A 

00317 

00315 

00316 

(317)= 

cos 

1/2 

S 

C0318 

C 03 16 

00315 

(318)= 

cos 

1/2 


02281 

02282 

02283 

02284- 

02285 

02286 

02287 

02288 

02289 

02290 

02291 

02292 

02293 

02294 

02295 

02296 

02297 

02298 

02299 

02300 

02301 

02302 

02303 

02304 

02305 

02306 

02307 

02308 

02309 

02310 
0231 1 

02312 

02313 

02314 

02315 

02316 


I SUB 0 02317 
I SUB 0 02318 
IO+SIN 1/2 10 02319 
1 0— SIN 1/2 10 02320 


K = 411CC 


LINE 02320 


PAGE 058 


-q 

-q 



-3 

03 


K n AllCC 


LINE 02321 


PAGE 059 


v CO 32 2 
M 00323 
R CO 32 7 

• B CO 3 2 5 
M CO 328 
A 00326 
D 00329 
S CO 3 29 
S 00330 
C 00023 
E 00392 

• B 00391 
S 00330 

• B 00392 
R CO 32 7 
C 00330 
R 00333 

• B 00331 

V 00332 
A 00334 
D 00335 
S 00336 
C 00023 
E 00 3 9 A 

• B 00393 
S 00336 

• B 0039A 
R CO 33 3 
C 00336 
A 00341 

V 00341 
S 00342 
M 00342 
A 00343 
A 00 3 44 
F 90700 
F 90700 
F 03600 
F 90700 
F 90700 


00317 

00C24 

(322)= 2(317) 


02321 

C 03 18 

C0C24 

(323)= 2(318) 


02322 

00023 




02323 




B 00325 

02324 

00327 

CC 327 

(328)= X SQ. 


02325 

003C1 

00328 



02326 

0C326 

00322 



02327 

00023 

GO 3 29 

- ( Q + X SQ . ) / P 


02328 

00327 

00329 



02329 

00330 

00391 



02330 





02331 




b 00391 

02332 

00023 

CC 3 30 



02333 




B 00392 

02334 

00329 


(327)= A 


02335 

00324 

0032 5 



02336 

00023 


(333)= 0 


02337 




B 00331 

02338 

00333 

00333 

X SQ 


02339 

00332 

C0306 



02340 

00334 

CO 323 



02341 

00335 

C0333 



02342 

00336 

00393 



02343 





02344 




B 00393 

02345 

00023 

00336 



02346 




B 00394 

02347 

00335 




02348 

00324 

G0331 



02349 

00327 

00333 



02350 

C 034 1 

00021 

(341)= 1/2 (A + B) 


02351 

00327 

003 3 3 



02352 

00342 

COO 2 1 

(342)= 1/2 (A-B) 


02353 

00341 

CO 3 1 5 

(343)= SIN 1/2 1+1/2 (A+B) 


02354 

C 0*3 4 2 

C0316 

(344)= CCS 1/2 10+1/2 (A-B) 


02355 

90101 

COO 50 



02356 

90126 

00343 



02357 

90111 

03600 

(3600)= NEW LAMBDA 1 


02358 

90101 

CC050 



02359 

90126 

GO 344 



02360 


K = AllCO 


LINF 02360 


PAGE 059 



K = 


1 100 


LINE 02361 


PAGC 060 



F 

05400 

90111 

05400 

( 5400 ) * NEW LAMBDA 4 


R 

90016 

0C055 


CHANGE NUMERICAL CRITERION 


S 

00345 

COO 15 

00311 

DELTA N SUB 0 Y 


S 

00346 

C0016 

C0312 

DELTA N SUB 0 ALPHA 


s 

00347 

00017 

00313 

DELTA N SUB 0 ETA 


c 

00023 

00345 

00355 


* 

B 

00356 





C 

00023 

00346 

C0357 


* 

B 

00360 





C 

00023 

00347 

00358 


» 

B 

00359 





C 

C0345 

0C324 

00135 



c 

00346 

00324 

CO 1 35 



c 

00347 

00324 

00135 



V 

00594 

+15C0CG00+02 



c 

00084 

00594 

00135 



E 

91201 




• 

B 

00355 





S 

00345 

C0023 

00345 



E 

00356 




* 

B 

00357 





S 

00346 

00023 

C0346 



E 

00360 




• 

B 

00358 





S 

00347 

00023 

CC 347 



E 

00359 




• 

B 

00201 





F 

12000 

90101 

C0050 

< 12000)= N SUR 0 CZ ACC. 


F 

12600 

90146 

9C700 

(12600)= SERIES ACC. 


F 

13200 

9C101 

9C700 

( 13200)= DER. T SUB I CELL 


R 

00187 

00020 


(187)= 1/N FACTORIAL 


R 

00185 

00023 


( 185)= COUNTER ( ITER. ) =0 

• 

B 

00186 





A 

00185 

00185 

00020 



F 

13200 

90151 

13200 

DIFFERENT I AL 


F 

90700 

90101 

07000 



F 

12000 

90121 

12000 

(12000)= N DELTA l TO THE NTH 


D 

00187 

00187 

00185 



F 

90700 

90146 

132C0 

BAR T SUB I 


F 

90700 

90121 

12C00 

MUL. BY N DELTA l TO THE NTH 


02361 

02362 

02363 

02364 

02365 

02366 

b 00356 02367 

02368 

b 00360 02369 

02370 

ti 00369 02371 

02372 

02373 

02374 

02375 

02376 
C2377 

H 00365 02378 

02379 

02380 

b 0035 7 02381 

02382 

02383 

b 00358 02384 

02385 

02386 

b 00201 02387 

02388 

02389 

02390 

02391 

02392 

3 00186 02393 

02394 

02395 

02396 

02397 

02398 

02399 

02400 


K = 41100 


LINE 02400 


PAGE 0 60 


co 



00 

o 


K 


AllCC 


LINE 024Q i 


PAGE 061 


F 

907CC 

•90126 

CO 1 87 




02401 

F 

12600 

90111 

126C0 

AC D TO SUM 



02402 

C 

CO 1 84 

00185 

00186 




02403 

F 

90700 

90101 

12600 




02404 

E 

002C2 






02405 

• B 

0021 1 




B 

00211 

02406 

F 

120C0 

90 1 C 1 

CC050 

( i 2C00 ) = N 02 ACC * CELLS 



02407 

F 

126C0 

90101 

00065 

ZERO SERIES TO ACC. CELLS 



02408 

F 

132C0 

90146 

9C7C0 




02409 

R 

CO l 8 7 

00020 





02410 

« 

CO 1 85 

C CO 2 3 





0241 1 

• B 

00389 




B 

00389 

02412 

A 

CO 1 8 5 

00185 

C0020 




02413 

F 

132C0 

90136 

1 3200 

UIFF. BARRED SERIES 



02414 

F 

907C0 

90 l C 1 

07800 




02415 

F 

12000 

90121 

1 2 C 00 

112000)= N nz TO THE NTH 



02416 

0 

00187 

00187 

CO 1 85 




02417 

F 

90700 

90 1C 1 

13200 




02418 

F 

90700 

90121 

12COO 

MUL. BY DELTA Z TO THE NTH 



02419 

F 

90700 

90126 

00187 




02420 

F 

12600 

90111 

12600 

ADD TO SUM 



02421 

C 

00184 

00185 

C0389 

NO. OF ITERATION =5 END 



02422 

F 

90700 

9C1C1 

12600 




02423 

E 

00212 






02424 

K 

00000 






02425 

K 

450C0 



SORT AND PRINT 



02426 

G 

90700 

CC7C0 




« 

02427 

Q 

907C1 

00701 





02428 

G 

907C2 

00702 





02429 

G 

90703 

00 70 3 





02430 

G 

99000 

0C191 





02431 

G 

990 C 1 

00192 





02432 

Q 

9900 2 

CO 1 94 





02433 

C 

99003 

00195 





02434 


SCR T AND PRINT 




02435 

• B 

0CC01 




B 

00001 

02436 

P 

coooo 

0001 l 

TA 




02437 


T 






02438 

V 

00009 

+ 7CC0CC00 + 0 3 




02439 

V 

C001 0 

+C00CCCCC+0C 

( 10)=0 



02440 


K 


45CC0 


LINE 02440 


PAGE 061 



K 


45CC0 


LINE 02441 


PAGE 062 


V 

00011 

+10CCCCC0+OI 

( 1 1 ) =+ 1 



0244 1 

V 

00012 

+200CCC00+0 1 

( 12 ) =2 



02442 

V 

0001 3 

+ 30CCCCC 0 + 0 1 




02443 

V 

00014 

+67108864+08 

( 14 ) = 2 rc THE 26 T H 



02444 

V 

COO 1 5 

+ 100CCCC0 + C 7 

15=10 TU THE SIXTH 



02445 

V 

00016 

+ 1OC0CCCO + O5 

( 1 6 ) = 1 OOCO 



u2446 

V 

0001 7 

+ 1 OOCCOCO + 0 3 

( 17)= 100 



02447 

V 

00018 

+ 50CCC000 +0 2 

{ 1 8 ) = 50 



02448 

V 

00019 

-lOOCCOCO+Ol 

( 1 9 ) =- 1 



02449 

V 

00096 

-44301CC0+05 




02450 

V 

C0C99 

+450C1CC0+05 




U245 1 

A 

00097 

00003 00099 




02452 

c 

00097 

00018 CC098 




02453 

Y 

C0002 

00097 0C0C9 C0095 




02454 

B 

00C94 



B 

00094 

02455 

R 

00003 

CC096 




02456 

B 

00098 



b 

00098 

02457 

G 

00025 

0C001 C0C03 

( 2 5 ) =N0 OH TERMS I ,K 



02458 

M 

00026 

C 002 5 00013 




02459 

A 

00040 

C0026 0CC03 




02460 

S 

00040 

C0040 00012 




02461 

I 

00027 

+COCOCOCO+OC 

K- 



02462 

I 

00030 

- 1C COCQOO + O 7 

J 



02463 

I 

00034 

+COOCCOOO+OC 




02464 

B 

C0029 



b 

00029 

02465 

A 

00030 

00030 COO 1 5 

J 



02466 

S 

00028 

C00C3 COO 12 




02467 

A 

00034 

00034 00015 

J + l 



02468 

B 

00035 



fa 

000 35 

02469 

A 

00028 

0C028 0C013 




02470 

G 

C0031 

OCOOl C0028 

A 



02471 

G 

00032 

00002 00028 

A* 



02472 

G 

00033 

00003 C0028 

A * » 



02473 

R 

C0023 

0C011 




02474 

C 

00032 

00010 CC037 COO 3 6 




02475 

B 

00038 



ti 

00038 

02476 

S 

00032 

00010 0C032 




02477 

M 

00023 

00023 00019 

COS OR SIN INC. 



02478 

B 

00037 



£ 

COO 3 7 

02479 

C 

00032 

00034 COO 36 




02480 



K = 45CC0 

LINF 02480 

PAGE 

L 6 2 



00 

ISO 


K 


*5CCC 


C 00030 00032 0C036 
D 000*5 C0032 0C0I5 
A 000*6 000*5 C001* 
S 000*7 000*6 C001* 
M 000*8 CC0*7 00015 
S 000*9 0C032 000*8 
0 00050 000*9 COO 16 
A COO 5 1 00050 CC01* 
S 00052 00051 0001* 
M 00053 00052 00016 
S 0005* 000*9 CC053 
D 00055 CC05* C0017 
A 00056 00055 COOl* 
S 00057 00056 COOl* 
y C0058 00057 CC017 
S 00059 CC05* 00058 
A 00060 00059 COOl* 
S 00060 00060 0001* 
R 00082 0CC31 
R 00083 CCG*7 
S 0008* C0052 00018 
S 00C85 C0057 00018 
S C0086 CC060 C0018 
R 00087 0C023 
C 00065 C 003 3 C0015 
A 00066 CC065 0C01* 
S 00066 0 C 066 COOl* 
y 00067 0C066 CC015 
S 00068 C 0 0 3 3 C0067 
D 00069 00068 CCC16 
A 00070 00065 CCC1* 
S 00070 CC070 0001* 
y 00071 CC070 CC016 
S 00C72 0C068 CCC71 
D 00073 0C072 CCC17 
A 0007* 0C073 COOl* 
S 0007* 0007* COC 1* 
y 00075 OCO 7* CCC17 
S 00076 00072 CC075 
A 00076 CC076 CCC1* 


A* 

( * 7 ) =P + 5C 


{ 52 ) =0+50 


(57) =R+5G 


{ 6 1 ) =S + 50 
A 

P 

Q 

R 

S 

CCS OR SIN 


( 66 ) = I 


( 70 ) = J + 50 


( 7* ) =K + 50 


K 


* 5C 00 


LINE 02*81 


PAGE C 63 


02*81 

02*82 

02*83 

02 * 8 * 

02*85 

02*86 

02*87 

02*88 

02*89 

02*90 

02*91 

02*92 

02*93 

02*9* 

02*95 

02*96 

02*97 

02*98 

02*99 

02500 

02501 

02502 

02503 
0250* 

02505 

02506 

02507 

02508 

02509 

02510 

02511 

02512 

02513 
0251* 

02515 

02516 

02517 

02518 

02519 

02520 


LINE 02520 


PAGE C63 


K 


45CCC 


LINE 02521 


PAGE 064 


s 

CO 0 76 

CCC76 

COO 14 

(76) 

-L + 50 

s 

00088 

CC 066 

CC0I8 

I 


s 

C0089 

CC070 

CCC18 

J 


s 

oocso 

CC074 

COO 18 

K 


s 

00091 

0C076 

CCC18 

L 


F 

onoco 

00101 

00082 



A 

00027 

C0O27 

coon 



B 

CCC36 





C 

C0040 

00028 

COO 35 

I I 

TO 35 

C 

00025 

00027 

00029 

I K 

TO 29 

F 

C0002 





B 

00039 





A 

00027 

CC027 

C0011 



E 

00036 





B 

00095 





R 

90700 

990C0 




R 

90701 

990C1 




R 

90702 

99CC2 




R 

90703 

99003 




E 

00094 





K 

OOICO 





TERP PRIM RCITINE 



B 

C0001 





G 

00015 

OCOOi 

CCC03 



F 

00019 

00121 

0C015 



S 

00020 

C0020 

CCO 1 1 



R 

COO 16 

00011 




C 

COO 19 

C0010 

CC007 CC006 



R 

00030 

0C010 




R 

00031 

0C010 




E 

00008 





B 

C0006 





S 

00016 

00010 

00011 



S 

COO 19 

00010 

0C019 



B 

C0007 





D 

00030 

COO 15 

CCO 12 



A 

COO 30 

0C030 

COO 13 



S 

C0030 

0C030 

0C013 



M 

C0031 

00030 

0C012 



S 

00031 

00019 

0CO31 




02521 

02522 

02523 

02524 

02525 

02526 

02527 

B 00036 02528 

02529 

02530 

02531 

6 00039 02532 

02533 

02534 

B 00095 02535 

02536 

02537 

02538 

02539 

02540 

02541 

02542 

B C0001 02543 

02544 

02545 

02546 

02547 

02548 

02549 

02550 

02551 

B 00006 02552 

02553 

02554 

B 00007 02555 

02556 

02557 

02558 

02559 

02560 


K 


4 5 ICO 


LINE 02560 


PAGE 064 



CO 


LINE 


02561 


PAUL 


L 6 5 


M C0030 

• B 00 0 C 8 
R CO 02 9 
R 00030 
G 00017 
G CO 0 3 1 
G COO 32 
G 00033 
G C0034 
G 00035 
G 00036 
G G0037 
G COO 3 8 
G 00039 
F 00033 
F 00034 
F CO 0 3 5 
F 00036 
F 00037 
F 00038 
F 00035 

T 

P 00020 
T 

P 00029 
T 

P COOCO 
P COOCO 
E 00002 

V C0010 

v coon 

V 00012 

V 00013 
W CO 040 
W CO 04 1 
W 00042 
K 00050 

PROGRA 

• B C0001 


K = 45100 


00030 

C0C16 

00030 


00031 


00006 

C COO 3 

CC041 

C 0 0 1 7 

OC002 

CCCC3 

OCOO 3 

CCC03 

0 C 004 

C C 003 

CC0C5 

CCC03 

0 0 C 0 7 

CCC03 

0G008 

CCC03 

ccocs 

CCC03 

CC010 

CC003 

0005 1 

CC033 

00051 

CC034 

0005 1 

CC035 

COO 5 1 

00036 

C 0 0 5 1 

0 C 0 3 7 

0C051 

0 C 0 38 

00051 

CC039 

0001 1 

TA 

• 

X 

coon 

TA 1 


0001 1 

TA 

0C011 

TA 


0808C3 SSN 

10 X (ABCDEFGH) 

0 102C80904030 1030 1030 1030 1030 1030 103 SIM NS AN SASASASASASA 
0103 SA 


+ 00C OOCCC +00 
+100CCCC0+01 
+ 1CGCCCCQ + C 8 
+67108864+08 
SIN 

CCS 

M TC CCNVERT NUMERIC TO ALPHA 


02 56 1 

b DC008 02562 

02563 

02564 

02565 

02566 

02567 

02568 

02569 

02570 
U2571 

02572 

02573 

02574 

02575 

02576 

02577 

02578 

02579 

02580 

02581 

02582 

02583 

02584 

02585 

02586 

02587 

02588 
0 2 5 89 

02590 

02591 

02592 

02593 

02594 

02595 

02596 

02597 

02598 

02599 

8 00001 02600 


K 


45150 


LINF 02600 


PAGE 


065 



K 


4515C 


LINE 


02601 


PAGE 066 


G 

OOOC6 

OCOOl 

CCCC3 

R 

COO 1 8 

CCC16 


C 

00006 

C0011 

00005 

R 

C 0 0 I 8 

CC017 


S 

C00C6 

00010 

CCC06 

B 

C0005 



D 

00007 

00006 

COO 12 

A 

CC0C7 

CC007 

COO 15 

S 

C00C8 

0C007 

CC015 

M 

CO 008 

CC008 

COO 12 

s 

C00G9 

CG006 

CCC08 

ft 

COO 1 8 

00018 

CCC13 

A 

C001 8 

COO 1 8 

CCC08 

A 

00018 

00018 

COO 14 


00018 

CC016 

CC013 

A 

COO 1 8 

CC018 

00 C 09 

A 

COO 18 

COO 1 8 

CC014 

H 

00001 

CCC04 

CC018 

E 

C0002 



V 

00010 

+COCCCOCC+OC 

V 

C0011 

-10CCCCCC+01 

V 

00012 

+ 1 COCCGOO + O 2 

V 

00013 

+ 10CCC0G0 + 03 

V 

COO 14 

+ 9CC0CCC0 + 0 2 

V 

00015 

+67108864+08 

w 

00016 

+ 


Vi 

COO 1 7 

- 


K 

CO 050 




PRIM OUT PEMCRY 


G 

900CC 

49152 

PATHFINDER 

G 

9C008 

CC008 


0 

COO 3 1 

CC0C1 


G 

00032 

CC002 


G 

00033 

CC 003 


C 

00034 

CC004 


G 

00035 

0C005 


V 

C0003 

+CCCCCCCC+0C 


V 

C00C4 

+452CCCC0+05 


Q 

00001 


PRIM OUT MEMORY PROGRAM 

R 

00150 

9CC08 



02601 

02602 

02603 

02604 

02605 

B 00005 02606 

02607 

02608 

02609 

02610 
02611 
02612 

02613 

02614 

02615 

02616 

02617 

02618 

02619 

02620 
02621 
02622 

02623 

02624 

02625 

02626 

02627 

02628 

02629 

02630 

02631 

02632 

02633 

02634 

02635 

02636 

02637 

02638 

SES LUC AT I UNS 1 TO 148 b 00001 02639 

02640 


K 


4E2CC 


LINE 02640 


PAGE 066 



K = 452C0 LINE 02641 PAGE 067 


R 

9C0C3 

00149 



0264 I 


T MYSTIC FLOATING PCINT DECIMAL MCMCJRY PRINT FIVE 

PER LINE 


u 2642 

P 

C0001 

C 0008 TA 



02643 


T 




02644 

P 

00001 

C 0008 TA 



02645 

R 

00010 

00003 



02646 

S 

00010 

00010 00007 



^2647 


T 

PATHFINDER READS 



02648 

P 

90000 

C0008 TA 0505C5C706 

SSSSN 


02649 


T 




02650 

P 

COOOi 

00008 TA 



02651 

• B 

00005 



ti 00005 

02652 

A 

00010 

0C010 0CC07 



02653 

S 

00010 

0C010 CC008 



02654 

G 

OOOil 

0CC31 0C010 



02655 

G 

00013 

00032 OOOIO 



02656 

G 

00015 

0C033 C0010 



02657 

G 

00017 

C0034 CC010 



02688 

G 

00019 

00035 00010 



02659 

C 

00011 

00009 0C006 C0006 



02660 

C 

00013 

00009 0C0C6 COOOfc 



02661 

c 

COO 1 5 

00009 C0C06 C0006 



02662 

c 

00017 

00009 00006 C0006 



02663 

c 

00019 

00009 C0C06 C0006 



02664 

A 

00010 

00010 00008 



02665 

C 

C0004 

00010 00005 



02666 

I 

00003 

♦coccoooo+oo 



02667 

I 

C0004 

+ 45200CC0 + 0 5 



02668 

R 

90008 

00150 



02669 

E 

C0002 




02670 

• 8 

00006 



a 00006 

02671 

F 

00011 

coo2i coon 



G2672 

F 

00013 

00021 0C013 



02673 

F 

COO 1 5 

00021 COO 1 5 



02674 

F 

00017 

CC021 COO 1 7 



02675 

F 

00019 

00021 00019 



02676 

A 

C0010 

oooio cocoa 



02677 

P 

00010 

OC 008 TA 0602C90 30 1090 30 109030 10903010903 

NSNNSNNSNNSNNSNN 


02678 

C 

00004 

OOOIO 00005 



02679 

I 

00003 

♦OOCOCOCO+CO 



02680 


K 


45200 


LINE 02680 


PAGE 067 



K 


452C0 


LINE 


02681 


PAGE 068 


I C0004 
R 9C0C8 
E C00C2 

V C0007 

V 000C8 

V C0009 
K C0020 
B 000CI 
I C0QC5 
I 00006 
I 00007 
A 000 C 7 
I 00008 
D COO 09 

i coon 

H 00030 
N 00001 
A COO 08 
I* 00009 
H 00030 
C coon 
l 00005 
I 00006 
A 00006 
I CQ0C7 
I 00008 
I 00009 
N 00001 

V COO 1 7 

V 00018 

V CO 0 1 9 
G 00010 
A 00010 
I 00025 
C 00010 
$ 00010 
I 00025 
C OCOIO 
R 00129 
H 00001 


+ 45200C 00 + 05 
00150 

+ 5GCCCGG0+0 1 
+100CCCCQ+01 
+OOCCCCOC+OC 


OUTPUT CONVERTER USES LOCATIONS 1 TO 128 

+10CGCCCC+01 
♦ 1 OCOCCC 0 + 02 
+67108864+08 
CCC07 00007 
+CCCQCCOO+OC 
00005 CC007 
+450CCCC0+02 
00008 C0009 

C0008 CCC05 
0C0C9 C0C06 
00008 00C09 
00008 00001 
+OOOCCCCO+OO 
+67108864+08 
0C006 0C006 
+1OCC0CCO+O1 
+ 70CCCCCO + 0 1 
+ 50CCCC00 + 0 1 

+ 1QCCGC00 + 09 
+99999999+07 
+ 80CCCC00+O l 
00001 C0003 
OCOC5 OCOIO 
+10CCCCC0+01 
CC0C5 C0020 
0000 5 C0010 
-10C0CCC0+01 
000C5 00020 

0C004 C0005 


02681 

02682 

02683 

02684 

02685 

02686 
02687 

8 00001 02688 

02689 

02690 

02691 

02692 

02693 

02694 

02695 

02696 

N 00001 02697 

02698 

02699 

02700 

02701 

02702 

02703 

02704 

02705 

02706 

02707 

N 00001 02708 

02709 

02710 
0271 1 

02712 

02713 

02714 

02715 

02716 

02717 

02718 

B 00129 02719 

02720 


K 


45220 


LINE 


02720 


PAGE 068 



00 

00 


H 00002 

e cooc2 

• B C0020 
C CO 0 C 7 
F 00012 
C 00012 

s coon 

G 00013 
M 00014 
M 00015 
A 00012 
E 00023 

• B 00021 
S 00011 
G 00013 
D 00014 
0 00015 
A 00012 
A 00015 
C 00015 
A 00015 
E 00023 

• B 00022 
D 00016 
F 00012 
A 00011 
S 00012 
G 00013 
M 00014 
V 00015 
C 00017 
G 00013 
M 00015 
A 00012 

• B 00023 
M 00015 
H 00001 
H 00002 
E 00002 

• B 00076 


K = 4 5 2 2 C 


00004 GC 005 


OCOIC CC022 
0CC76 CC010 
CC008 CC021 
00008 CCC12 
C 0030 00011 
00010 0C013 
00014 0C006 
00012 CCCC7 


00012 CC008 
00030 00011 
00010 COO 1 3 
0C014 0C006 
00012 CC0C7 
00015 00009 
COO 1 8 C0023 
00015 CCC09 


0C0C7 00010 
00076 00C16 
00012 00019 
00005 COO 12 
OC 030 00011 
C0010 0C013 
COO 14 0CC06 
00015 CCC23 
00029 C0011 
00010 00013 
00012 0C0C7 

00015 00025 
00004 00015 
0CC04 00012 


K h 45220 


LINE C 27 2 1 


PAUL 069 


02721 

02722 

b 00020 02723 

02724 

02725 

02726 

02727 
C272H 

02729 

02730 
02/31 
02732 

B 00021 02733 

02734 

02735 

02736 

02737 

02738 

02739 
02 740 

02741 

02742 

H 00022 02743 

02744 

02745 

02746 

02747 

02748 

02749 

02750 

02751 

02752 
G2753 
02754 

B 00023 02755 

U2756 
02 757 
02758 
u 2 759 

B 00076 02760 

LINE 02760 PA GC C69 



K 


4522C 


G 0008C CC076 C0C78 
R 00081 C00H2 
R 00084 C COO 5 

• B C0085 

D 00081 C0081 C0083 
C 00007 00081 C0086 
A C0084 C0084 CC081 
C 00084 CC090 C0C89 
G 00087 0CC91 CC084 
C 00080 0008 7 C0085 
S 00084 CC084 CC081 
C 00087 00080 CC085 
A COO 84 CC084 C0081 

• B C0086 

H COO 76 00079 C0CQ4 
E 00C77 

V 00028 +1CCCC0CO+O8 

V 00082 +64CCC0C0+0 2 

V C0083 + 2C0CC0C C + 0 1 

• B 00089 

S 00084 C0084 C0081 
E 00085 

V 00090 + 37CCCCC0 + 02 

V 00091 +1GCCCCC0+01 

V 00C92 + 1CCCCOOO+02 

V 00C93 + 1 OOCCCO 0 + 0 3 

V 00094 + 1 0GCCCCC+04 

V C0095 ♦ 10CC CCCO + O 5 

V 00C96 ♦ 1CCCCCC0+06 

V 0CC97 +1C0CCC0C+C7 

V 00098 + 1 0C0CCC0+08 

V 00099 +10CCCCQ0+09 

V 00100 +10CCC0CO+1C 

V C0101 +10CCCCC0+11 

V CO 102 + 10C0CCC 0+ 1 2 

V 00103 + ICC CCOCC + 1 3 

V 00104 +1C0CCC00+14 

V 00105 + 10CCCGC 0 + 1 5 

V 00106 +10CCCG00+16 

V 00 1 C 7 + 10CCCCC0+ 1 7 

K = 4522C 


co 

zo 


LINE 02761 


PAGE 070 


02761 

02762 

02763 

B 00085 02764 

02765 

02766 

02767 

02768 

02769 

02770 

02771 

02772 

02773 

6 00086 02774 

02775 

02776 

02777 

02778 

02779 

B 00089 02780 

02781 

02782 

02783 

02784 

02785 

02786 

02787 

02788 

02789 

02790 

02791 

02792 

02793 

02794 

02795 

02796 

02797 

02798 

02799 

02800 


LINE 02800 


PAGE 070 



tO 

o 


K 


4 52 20 


V 00108 + 1CCCCCC0+ 1 8 

V 00109 + 1GC0C000+ 1 9 

V 00110 + 1OCC0000+2C 

v coin + icccccc 0+2 1 

V 00112 + 100CCC00 + 2 2 

V 001 13 + 100CC000 + 2 3 

V 00114 +10000000+24 

V 00115 + 10C CC000 + 2 5 

V 00116 +1G0CC00Q+26 

V 00117 +10000000+27 

V 00118 + 10CO0C0C +28 

V 00119 +1000CC00+29 

V 00120 +10C0CC00+30 

V 00121 + ICOCCOCO + 3 1 

V 00122 + 1 0CC0000+32 

V 00123 +1000C0C0+33 

V 00124 + lOOOCOC 0 + 34 

V 00125 + 10CC0000 + 3 5 

V 00126 + 100CC000 + 36 

V 00127 +10C0CC00+37 

V 00128 +100CCC00+38 
K 00000 

V 00602 +42200000+03 

V 00696 +10100000+03 

V 00691 +181CCCC0+03 

V 41520 +20000000+01 


30 4 1 1C 1 


K 


occoo 


LINE 02801 


PAGE 071 


02801 

02802 

02803 

02804 

02805 

02806 

02807 

02808 

02809 

02810 
02811 
02812 

02813 

02814 

02815 

02816 

02817 

02818 

02819 

02820 
02821 
02822 

02823 

02824 

02825 

02826 

02827 

02828 

02829 

02830 

02831 

02832 

02833 

02834 

02835 

02836 

02837 

02838 

02839 

02840 


LINE 02840 


PAGE 071 


cccco 


LINE 02841 


PAGE 072 


02841 

02842 

02843 


CCOOO 


LINE 02844 


PAGE 072 



CO 

to 


FUNGI II, F\rrx PY PAGE 


K = 

PAGE 

LINE 

OC05C 

001 

CCC04 

00070 

001 

CC028 

OOICO 

C03 

CC084 

OOilO 

004 

00133 

00115 

004 

CO 1 A l 

00120 

004 

001A9 

00125 

004 

CO 1 5 7 

00130 

005 

00164 

00135 

005 

00172 

00140 

005 

00180 

00 1 A 5 

005 

00188 

00150 

005 

00196 

00155 

006 

00204 

00180 

006 

00212 

002C0 

008 

00307 

416C0 

028 

01088 

410C0 

028 

0 1099 

411CC 

029 

01144 

450C0 

061 

02426 

45 ICO 

064 

02541 

45150 

065 

02598 

452C0 

066 

C2628 

45220 

068 

02687 


PAGE l 1 \ *- K - i > A. 


FUNCTION INDEX BY K-CARD 


K = 

PAGE 

LINE 

K = 

PAGE LINE 

K = 

PAGE LINE 

K = 

PAGE 

0C050 

001 

C0004 







00G70 

001 

C0028 







00IC0 

003 

00084 







00110 

004 

00133 







00115 

004 

CO 14 1 







0C12C 

004 

CO 149 







00125 

004 

CO 1 5 7 







00130 

C05 

00164 







00135 

005 

CC 172 







0C140 

005 

00180 







00 1 A 5 

005 

00188 







0C15C 

005 

00196 







00155 

006 

C02C4 







00180 

006 

00212 







002C0 

008 

C0307 







410GC 

028 

01099 







41L0C 

029 

C 1 144 







416C0 

028 

01088 







45000 

061 

02426 







45 ICO 

064 

02541 







45150 

065 

02598 







452C0 

066 

02628 







45220 

068 

02687 








LINE 



K = 

0C050 
00070 
001C0 
00110 
00115 
0C12C 
00125 
00130 
00135 
OCHO 
00145 
0C15C 
00155 
00180 
002C0 
4100C 
4 1 IOC 
4 16C0 
45000 
45 1 CO 
45150 
452C0 
45220 


FUNCTION INDEX BY K-CARD 


PAGE LINE K = PAGE LINE K = PAGE LINE K = PAGE LINE 

001 CC004 

001 CC028 

003 00084 

004 00133 

004 CC141 

004 CO 1 49 

004 00157 

005 00164 

005 CC172 

005 00180 

COS 00188 

005 00196 

006 C02C4 

006 00212 
008 C0307 

028 01099 

029 C 1 144 

028 01088 
061 02426 

064 02541 

065 02598 

066 02628 

068 02687 


so 

CO 




Appendix B 


Explanation of Program Commands 


Table B1 

CAMEO Codes for Alphanumeric Characters. 


Character 

Card Code 

Octal Code 

CAMEO Code 

Blank 

Blank 

60 

00 

. 

12-3-8 

33 

18 

> 

12-4-8 

34 

19 

+ 

12 

20 

20 

$ 

11-3-8 

53 

28 

* 

11-4-8 

54 

29 

- 

11 

40 

30 

/ 

0-1 

61 

31 

» 

0-3-8 

73 

38 

< 

0-4-8 

74 

39 

= 

3-8 

72 

48 

t 

4-8 

14 

49 

A 

12-1 

21 

61 

B 

12-2 

22 

62 

C 

12-3 

23 

63 

D 

12-4 

24 

64 

E 

12-5 

25 

65 

F 

12-6 

26 

66 

G 

12-7 

27 

67 

H 

12-8 

30 

68 

I 

12-9 

31 

69 

J 

11-1 

41 

71 

K 

11-2 

42 

72 

L 

11-3 

43 

73 

M 

11-4 

44 

74 

N 

11-5 

45 

75 

O 

11-6 

46 

76 

P 

11-7 

47 

77 

Q 

11-8 

50 

78 

R 

11-9 

51 

79 

s 

0-2 

62 

82 

T 

0-3 

63 

83 

U 

0-4 

64 

84 

• V 

0-5 

65 

85 

w 

0-6 

66 

86 
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Table B1 

CAMEO Codes for Alphanumeric Characters. 


Character 

Card Code 

Octal Code 

CAMEO Code 

Blank 

Blank 

60 

00 

. 

12-3-8 

33 

18 

> 

12-4-8 

34 

19 

+ 

12 

20 

20 

$ 

11-3-8 

53 

28 

* 

11-4-8 

54 

29 

- 

11 

40 

30 

/ 

0-1 

61 

31 

> 

0-3-8 

73 

38 

( 

0-4-8 

74 

39 

= 

3-8 

72 

48 

r 

4-8 

14 

49 

A 

12-1 

21 

61 

B 

12-2 

22 

62 

C 

12-3 

23 

63 

D 

12-4 

24 

64 

E 

12-5 

25 

65 

F 

12-6 

26 

66 

G 

12-7 

27 

67 

H 

12-8 

30 

68 

I 

12-9 

i 

31 

69 

J 

11-1 

41 

71 

K 

11-2 

42 

72 

L 

11-3 

43 

73 

M 

11-4 

44 

74 

N 

11-5 

45 

75 

0 

11-6 

46 

76 

P 

11-7 

47 

77 

Q 

11-8 

50 

78 

R 

11-9 

51 

79 

S 

0-2 

62 

82 

T 

0-3 

63 

83 

U 

0-4 

64 

84 

• V 

0-5 

65 

85 

w 

0-6 

66 

86 
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Table B1 (Cont'd) 


Character 

Card Code 

Octal Code 

CAMEO Code 

X 

0-7 

67 

87 

Y 

0 

1 

00 

70 

88 

Z 

o 

J 

CD 

71 

89 

Zero 

0 

00 

90 

1 

1 

01 

91 

2 

2 

02 

92 

3 

3 

03 

93 

4 

4 

04 

94 

5 

5 

05 

95 

6 

6 

06 

96 

7 

7 

07 

97 

8 

8 

10 

98 

9 

9 

11 

99 


Table B2 

CAMEO Operators to Control Encoding for the Advanced Mystic Machine. 


Name 

Symbol 

Effect on Encoding Control Registers 

Key 

K(0) 

Clear the Q-table of all previous 
entries and set the K register to zero. 

Key 

K(p) 

Add the number p to the K register. 

Origin 

O(p) 

Set the L register to the number p. 

Cue 

Q(p, q) 

Add the pair p, q to the Q-table of 
address equivalents. 

Transfer 

30(p) 

Terminate encoding and begin execu- 
tion of the compiled program at 
location p. 
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Table B3 


CAMEO Operators to Support Encoding for the Advanced Mystic Machine. 


Name 

Symbol 

Function in Support of Encoding 

Begin- point 

B(p) 

Make location p a logical flow con- 
nector for the commands which 
follow. 

Value- given 

V(p, m, n) 

Record in location p the floating point 
number (m, n) for use as a given value 
in the object program. 

Word- given 

W(p, 1) 

Record in location p the symbol 1 as a 



coded floating point integer for use 
as a given word in the object program. 


Table B4 


CAMEO Operators Representing Advanced Mystic Commands. 


Name 

Symbol 

Advanced Mystic Command 

Add 

A(p, q, r) 

Add the contents of locations q and 
r and place the sum into location p. 

Compare t 

C(P, q, r v s) 

Compare the contents of location p 
with the contents of location q. If 
contents-of-p exceeds contents- of- q 
transfer to location r, if contents- 
of-q exceeds contents-of-p trans- 
fer to location s, if contents-of-p 
equals contents-of-q continue with 
next instruction. 

Compare 2 

C(P, q, r) 

Compare the contents of p and the 
contents of q. If contents-of-p 
exceeds contents-of-q, transfer to 
location r. Otherwise continue. 

Divide 

D(p, q, r) 

Divide the contents of location q by 
the contents of location r and place 
the quotient into location p. 

End 

E(P) 

Exit from the current instruction 
sequence by transferring to location p. 

Function 

F(P, q, r) 

Store in location q + 1 the point- of- 

(Note 1) 


return, in cell q + 2 the number r - q, 
in cell q + 3 the number p - q, and 
transfer to location q. 
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Table B4 (Cont'd) 


Name 

Symbol 

Advanced Mystic Command 

Get 

G(p, q, r) 

Get into location p the contents of the 
location specified by the number q 
plus the contents of location r. 

Hold 

H(p, q, r) 

Hold the contents of location r in the 
location specified by the number p 
plus the contents of location q. 

Initialize 

I(p, m, n) 

Initialize location p to the value (m, n) 
a normalized floating point number. 

Jump 

J(P> 

Jump to the program in system stor- 
age designated by the contents of 
location p. 

Load t 
(Notes 2, 4) 

L(p, q, a, b, 

C l* • • C 18 > 

dj • • • d lg ) 

Load into successive locations begin- 
ning with p, contents- of-q records from 
the alphanumeric input medium indicated 
by a; where the i-th word in each record 
is the integer equivalent of an input field, 
c i characters long, of type d A , and b such 
sets of field descriptors follow in suc- 
ceeding command records. 

Load 2 
(Notes 2, 4) 

L(p, q. r) 

Load into successive locations begin- 
ning with p, contents- of-q words from 
the machine-word input medium indi- 
cated by r. 

Multiply 

M(p, q, r) 

Multiply the contents of locations q and 
r and place the product into location p. 

Name 

N(p) 

Name location p a logical flow con- 
nector for the coding which follows. 

Print L 

(Notes 3, 4, 5) 

P(p, q, a, b 

C 1 • # * C 18 » 
d x . . . d lg ) 

Print from successive locations begin- 
ning with p, contents- of-q entitled 
records on the alphanumeric medium 
indicated by a; where the i-th field of 
each record, c k characters long, of type 
d A is determined from the i-th integer 
of the record, and b such sets of field 
descriptors follow in succeeding com- 
mand records. 

Print 2 

P(P, q» r) 

Print from successive locations begin- 
ning with p, contents-of-q words on 
the machine- word- output medium in- 
dicated by r. 



Table B4 (Cont'd) 


Name 

Symbol 

Advanced Mystic Command 


Replace 

R(p. q) 

Replace the contents of location p by 
the contents of location q. 


Sub t met j 

i 

S(p, q, r) 

Subtract the contents of location r from 
the contents of location q and place 
remainder into location p. 


Title 

T(t, • • -t 71 ) 

Load the title register positions 1-71 
with characters t x to t 71 . 


Unpack 

U(p, q) 

Unpack the integer portion of the float- 
ing point number stored in location 
q and store the integer in location p. 
The contents of location q remain 
unaltered. 


Xtracode 

X(p, x, . . . x„) 

Transfer to the machine language sub- 
routine located at p, with interface 
vector Xj . . . x 13 . 

(Note 1) 

This instruction makes it possible to transfer to a function and after its execution, continue to the 
next instruction. Normally r contains the input to the function and p is to contain the output. 

(Note 2) 

In case the input medium is tape, a special interpretation is placed on the contents of q as follows: 
if q is zero backspace one file, if q is the negative integer -n, backspace n records. 

(Note 3) 

In case the output medium is tape, a special interpretation is placed on the contents of q as follows: 
if a is zero, write end-of-file; if q is negative, rewind. 

(Note 4) 

The field a contains four characters. The leftmost is one of (C, P, T) for Card, Printer, Tape, 
respectively. The next is one of (A, B, C, D, E, F, G, H, I) for selection of units within the type. 

The next is either blank or B, for decimal or (Binary) machine- word, respectively. The field 
c i • • * c i8 consists °f eighteen two-digit numbers. The field d x . . . d 18 consists of eighteen letters, 
where each is one of (A, N, F, S) for Alphabetic, Numeric, Full- numeric and Skipped. In case d. 
is A, c. must not exceed 4; in case d. is N, c. must not exceed 9; in case d. is F, c. must not 

’i i 7 i i i 

exceed 8; when d i is S, c { may be as large as 15. 

(Note 5) 

An entitled record is the logical sum of the given record and the contents of the title register. 
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Table B5 


CAMEO Operators to Utilize 1107 Drum. 


Name 

Symbol 

Advanced Mystic Command 

Drum Clear 

Y00001(p) 

Clear drum and set up drum I/O. 

p, the maximum number of cells allowed 

for a series, is (nominally 10,000). 

Drum Read 

Y00002(p)(q)r 

Read from drum storage to main memory: 

p, series number,* 

q, main memory destination of series, and 

r, alternate return point for zero series. 

Drum Write 

Y00003(p)(q)r 

Write series on drum from main memory: 

p, series number,* 

q, number of words in series,** and 

r, absolute memory location of series. 


*Each series placed on the drum is tagged with a number between land 50. This number multiplied by p from 
Y00001 determines the drum location of the series. 

**This number is stored according to the series number in absolute memory locations 1 thru 50 after each 
drum write. 
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Appendix C 


Sample Series Printout 
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-4.9 M 7\i7S 


4 . 9 n 7 *5 7 ^ 


4.11 7524 4 


-4.1172244 


- 1 • V . / 4 i J / 


1 . 3t'MC:^ 


1 .2575207 


- 1 .257520 7 


-4 • 1 9C849 2 


4. 1908492 


- 1 .037284 3 


1 *037284 5 


-5. 535107 C 


5.6351070 


3.456 8832 


-3.456283 2 


-0 1 
x i *: < 


-o i 

'< l C X 

_ O i; 

x 1 0 x 

-02 
X 1 0 X 


-0 2 
X 10 x 


-0 2 
x 1C X 


-0 2 
x 10 X 


— C 2 
X 1 0 X 


-0 3 
x 1 C x 


-03 
x 10 x 


-03 
x 1 C x 


-0 3 
x 10 x 


-0 4 
X 10 x 


-0 4 
X 10 X 


-04 
X 10 x 


-04 
X 10 X 


CO ,< (.0 A 4 c n- + Cl C + 01 u + c 1 L. +L0F + 0Ci+00n > 


C *V- ' ( °0 A + C 1 U-C 1 C + 01 O-U 1 t' + OOF + w CG+OOH ) 


cost Fo a + t iu + cic + 01 u + cOE+oor + o cg+ooh) 


COO { CO A + C lb‘-0 1C + 01 J + OOL + J0r + JOG + OOH ) 


COS < COA + C IE + 01C + C1 ^ + C2F- + lrOr+C CG + OOh) 


COS ( CO A + C 1D-C1C + G1 ^-C2F +oOF+0 CG+OOH ) 


cost 00 A+C CO+QIC+CI J + Gl L+uOr +0 05 + 0 OH > 


COS(n0A+CCC4ClC-ClG+ClF+oCF+0GG+C0H) 


CO 6( CO A + C ?P+ C1C+C1 u + Cl L+OOF+ J CG + OOH ) 


COSf CO A + C 2O-C1C + 01 D-G 1 F + UOF + G CG + OOh ) 


COS ( 00 A + 0 CC + 01C+ 01 u + COL + OOr+O CG + OOh ) 


cost 00 A + CCE + 01C-01 O + C05 + O0F+C0G + C0H) 


cost CO A + C 1Q + Cl C + Cl D + C35 + G0r + 0 CG + OOH ) 


cost CO A + C lR-OlC + Ol U-0 35 + UOF+C CG + OOH ) 


cost 00 A + C 2e + Cl C + 01 G + CO t+'jOF+O CG + OOH) 


cost CO A+C 2B-C1C + C1 O + CCC + uOF+O CG + OOH ) 



-04 

3.4497995 X 10 X COS ( CO A + 0 CB + 0 1 C + Ol D+Q2E+00F+0 CG+OOH ) 


-04 

-3.4497995 X 10 X CO S ( CO A + 0 CB + 0 1 C- 01 0 + 0 2 E + OOF + O OG + O OH ) 


-04 

-1.8859974 X 10 X COS( OOA + O 1B+01C+01 L>— 0 1 E + OOF+O CG + OOH ) 


-04 

1.3359974 X 10 X COS( 00 A+OlB-OlC+OlO+OlE+OOF+O CG+COH) 


-0 4 

-1.1496899 X 10 X COSt CO A+02B+01C+01 D+02E+00F+0 OG+OOH ) 


-04 

1.1496899 X 10 X COS< 00 A+0 2B-0 1 C+Ol D-02E+00F+0 OG+OOH ) 


-0 5 

-5.2776650 X 1C X C 0 S ( CO A + C 2 E + 0 1 C + 0 1 0 + 0 1 E + 00 F + 0 CG + 0 OH ) 


-0 5 

5.2776650 X 10 X C O S ( CO A + 0 2B- 0 1 C+ 01 D- 0 1 E + UO F + 0 CG + 0 OH ) 


-0 5 

-2.7482634 X 10 X C 0 S { CO A 4- C 1 E + 0 1 C + 01 D + 0 4 1 + 00 F +0 OG + 0 OH ) 


-0 5 

2.7482634 X 10 X C 0 S { 00 A + 0 1 B- 0 1 C+ 0 1 D- 04 E + 00 F +0 0G+ 0 OH ) 


-0 5 

1.7603356 X 10 X COS( COA + O 10 + 01 C— 01 0 + 01 E + OOF + O CG + OOh ) 


-05 

-1.7603356 X 10 X C 0 S ( CO A + 0 1 E- 0 1 C - 0 1 0-0 1 E + 00 F + 0 0 G + 0 OH ) 


-0 5 

1.4195928 X 10 X COSt 00 A + 0 CB + C.1 C + 01 U + 03E + 00F + 0 CG + OOH ) 


-05 

-1.4195928 X 10 X COS ( 00 A+0 CB+01C-01 U+03E+00F+0 CG+OOH ) 


-06 

4*7511939 X 1C X COSt COA+CCB+OIC+OID-OIE+OOF+OOG+OOH) 


-06 

-4.7511939 X 10 X COSt COA+CCB+OlC-Olu-ClE+OOF+OCG+OOH) 
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-4 . 7 3 C 9 7 3 4 


4 . 730975 4 


4.353359 1 


-4.353359 1 


-3.4510529 


3.451052 9 


-1 .5833963 


1 .593396 3 


-1 .4725399 


1 .4725399 


-1 .4520386 


1 .4520336 


-1 .4478398 


1 . 44 78 39 8 


-7.9771268 


7 . 3 771 26 8 


-06 
X 10 X 


-0 6 
X 10 X 


—0 6 
x 10 x 


-0 6 
X 10 X 


-0 6 
X 10 x 


-0 6 
X 10 X 


-0 6 
X 10 X 


-06 
X 1C X 


-06 
x 10 x 


-06 
X 1C X 


-06 
X 10 X 


-0 6 
x 10 x 


-0 6 
X 1C x 


-06 
x 10 x 


-07 
X 10 x 


-0 7 
X 1C X 


C0S( 90A+Q2B + 0lC + 0li-> + Q35 + U9F + 0 OG + COm) 


COSt CO A+02G-01C+01 O-C3L+00F+0 CG+OOH) 


COMC0A + G3e + CiC + 0lu+C0E + G0F + 0 CG+OOH) 


COM GO 4 + 0 30 — 0 1C + 01 D+GOE+GOF+O CG + OOH) 


COM CO A + C 1P + C1C + 01 U-C2E + G0F + 0 GG + OOH) 


COSt CO A +C 10-C1C+C1U + C2C + UOF + G OG + OOH ) 


COS( CO A + 0 20 + 01 C + 01 0—0 1 E +OOF + Q GG + OOH ) 


COSt CO A + 02B — OlC + Ol u + 01 E + UOF + O OG + OOh ) 


cost 00 A + 0 1B+01C + 01O + 05F. + U0F+0 CG+OOH) 


.cost COA + C ie- 01 C + Cl U-C5E + 00F + 0 CG + OOH) 


COSt 00 A + Q 18 + 01 C- 01 U + OOE + OOF + O CG + OOH) 


COSt CO A + 0 1G-C1C-01 D + OOE + OOF + O CG+OOH) 


COSt 00 A + Q28 + 01C + 01 D + 02E + O0F + U0G+00H) 


COSt 00 A + 0 28-0 1 C + 01 U-02E + G0F + 0 CG + OOH) 


COSt CO A + 0 48+01 C + 01 D + 01E + 00F + 00G+00H) 


COSt COA + 0 4B-01C + 01 O-01E + 00F+0 CG + OOH) 



-07 

6.9234092 X 10 X 


-07 

-6.9234092 X 10 X 


C05( COA + OCB + OlC + Ol D + 04E + 0QF+0QG.+ 00H ) 


COS(00A+0CB+01C-0l D+04E+OOF+OCG+OOH) 


NASA -Langley, 1966 G-709 
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"The aeronautical and space activities of the United States shall be 
conducted so as to contribute ... to the expansion of human knowl- 
edge of phenomena in the atmosphere and space. The Administration 
shall provide for the widest practicable and appropriate dissemination 
of information concerning its activities and the results thereof ” 

— National Aeronautics and Space Act of 1958 
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